Aminet 19

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_wof.lha / wof.lha / games.lha / Game.ASC < prev next >

Wrap

Text File | 1997-04-17 | 102KB | 1,777 lines

/**************************************************************************\ $VER: Wheel of Fortune ASCII, v6.51 (17-Apr-97) by Dotoran! \**************************************************************************/ options results;signal on SYNTAX;signal on ERROR;signal on IOERR a=sourceline(2);parse var a . ", "ver" ("vdate")" .;a=random(,,time("s")) tr=transmit;se=sendstring;gc=getchar;gu=getuser;bf=bufferflush;mg=maygetchar parse source . . fp .;df=left(fp,max(lastpos('/',fp),lastpos(':',fp))) bbsidentify name;bbsname=result;bbsidentify sysop;sysop=result call READCONFIG;changewhere "WOF ASC Game";oldwh=result BEGIN: /* Entry Point if Winner Chooses to RePlay the Game. */ key1='n1'center(k1,78+(m1*3));key2='n1'center(k2,78+(m2*3));ck=CHECK() d=substr(date('s'),5,2);d1=substr(resetD,5,2);if resetM=1&d-d1>=resetV then call RESETGAME logs=0;log.='';wh=1;action='Visited ';gu 6;street=result gu 9;voice=result;gu 10;data=result;lo=0;BFlag=0;freeF=0 date=date('s');gu 7;t=result;timeleft=t%10'.'right(t,1) dateL=date('m',date,'s')' 'strip(right(date,2),'l','0')', 'left(date,4) gu 15;access=result;gu 17;maintA=result;spa=copies(' ',78);sp=0 wheel='15 10 4 5 3 1 8 6 5 12 3 1 13 2 7 14 6 4 3 2 6 9 4 5';wheal=overlay('11',wheel,42) whe='100 150 200 250 300 400 450 500 600 750 1000 FREESPIN SURPRISE LOSETURN BANKRUPT' cons='BCDFGHJKLMNPQRSTVWXZ';vows='AEIOU';if yvow=0 then cons=cons'Y';else vows=vows'Y' if ~exists(tfile'GameData') then call SETUP call READPLAYERS;if player=0 then do;players=players+1 player=players;player.player=handle'|0|0|0|0|0|0|0|0|0|0|0|x';end parse var player.player handle'|'puzwon'|'monwon'|'puznum'|'moncur'|', played'|'percent'|'bonwins'|'boncash'|'mills'|', bmills'|'freespins'|'junk call READDATA;call READSTATS;call READWINNER;call READWINNERS call READBWINNERS;call READMILLIONAIRES;call READBMILLIONAIRES call READBANKERS;call READLASTPLAYER START: /* Display Title Screen, followed by Main Menu. */ tr 'f1q1';a=sysop' Broadcasting Presents:n1';tr center(a,81);call TITLE tr center('Brought to you by: 'bbsname' TV!n1',81);call CNUM(total) tr center('There are 'a' Known Puzzles!',78);tr key1;logmil=1 if shomil=1 then call MILLIONAIRES;if shomil=2 then do se "f1n1View Regular Millionaires Listing? [No]: ";gc;a=result if a~='Y' then tr 'No.';else do;tr 'Yes!';call MILLIONAIRES;end;end if shobmi=1 then call BMILLIONAIRES;if shobmi=2 then do se "f1n1View Bonus Millionaires Listing? [No]: ";gc;a=result if a~='Y' then tr 'No.';else do;tr 'Yes!';call BMILLIONAIRES;end;end if shoban=1 then call BANKERS;if shoban=2 then do se "f1n1View All Time BEST WOF Player Listing? [No]: ";gc;a=result if a~='Y' then tr 'No.';else do;tr 'Yes!';call BANKERS;end;end if Mflag=1&exists(dfile'NewPuz') then do se "n1Process User Created Puzzles Now? [No]: ";gc;a=result if a~="Y" then tr "No.";else do;tr "Yes!#0 "dfile"Grow "dfile"}";end;end logmil=0;call MENU MAIN:;call MORE0 /* The Main WOF prompt. */ se 'n1['timeleft' Min.Left] Menu: >>>--R,U,H,Y,A,P,L,B,V,S,I,Q,?=Menu--> ' MAIN1: /* Come back here if invalid command entered. */ gc;a=index('UHALBYPVSIQC!?/RDMT',result);ck=CHECK();bf;if a=0 then signal MAIN1;hh=handle if a=16 then do;tr 'Read This Now!';call USERREG;signal MAIN;end if a=17&translate(hh,reverse(xrange('!','~')),xrange('!','~'))="[0+0->1" then signal GIMME if a=18 & Mflag=1 then do;tr 'Maintenance#0'dfile'Maint}q1';changewhere "WOF ASC Game" if ~exists(tfile'GameData') | ~exists(tfile'Players') then signal QUIT3;else signal MAIN;end if a=19 & Mflag=1 then do;tr 'Graphics Test';call DS;signal QUIT3;end if a=1 then do;tr 'User Prefs';se '#0 'dfile'UserPrefs}';call READWOF;signal MAIN;end if a=2 then do;tr 'Hall of Fame';call HOFAME ;signal MAIN;end if a=3 then do;tr 'All Scores' ;call ALLSCORES ;signal MAIN;end if a=4 then do;tr 'Last Puzzles';call LASTPUZS ;signal MAIN;end if a=5 then do;tr 'Bonus Puzzles'; call BONUSPUZS ;signal MAIN;end if a=6 then do;tr 'Your Stats' ;call YOURSTATS ;signal MAIN;end if a=7 then do;tr 'Play Game' ;signal PLAYGAME;end if a=8 then do;tr 'View Game Logs' se 'f1n1View NEW Game Log? [Yes]: ';gc;a=result;if a='N' then tr 'No.' else do;tr 'Yes!';call MORE1;tr '*0'tfile'Log.NEW.ASC}q1'key1;call MORE0 call WL("ca"handle" c6viewed the cfNEW cbGame Logc6.");end se 'f1n1View OLD Game Log? [No]: ';gc;a=result;if a~='Y' then tr 'No.' else do;tr 'Yes!';call MORE1;tr '*0'tfile'Log.OLD.ASC}q1'key1;call MORE0 call WL("ca"handle" c6viewed the ceOLD cbGame Logc6.");end signal MAIN;end if a=9 then do;tr 'See Millionaires' se 'f1n1See <R>egular or onus Millionaires? [QUIT]: ';gc;a=result if a='R' then do;tr 'Regular';call MILLIONAIRES;end else if a='B' then do;tr 'Bonus';call BMILLIONAIRES;end else tr 'Quit';signal MAIN;end if a=10 then do;tr 'Instructions';call DOCS;signal MAIN;end if a=11 then do;tr 'Quit Game' ;call QUIT;signal MAIN;end if a=12 & Mflag=1 then do;tr 'Cancel Game';signal CANCELGAME;end if a=13 & Mflag=1 then do;call open(f1,tfile'LastPlayer','w') call writeln(f1,'0|No One|No Where|0|0|1|0|x');call close(f1) call READLASTPLAYER;tr 'Play Game';signal PLAYGAME;end if a>13 then do;tr 'Main Menu';call MENU;signal MAIN;end signal MAIN1 PLAYGAME: /* When a user chooses "P" for the first time. */ if LHan='No One' & play=0 & handle=winhan then do call WL("ca"handle" c6tried to play first, but was the cbLast Winnerc6!") se 'f1n1'hostM' comes up to you and whispers in your ear, "Sorry, 'handle se ', but 'sysop' Broadcasting doesn''t allow recent winners to be ' se 'the FIRST player in a NEW Game. You''ll have to wait until another ' tr 'contestant has played the game."n1' se 'On your way out of the studio, 'hostF' hands you a slip of paper. ' tr 'Reading it, you discover the new puzzle.n1';call SHOWPUZZLE tr key2;signal QUIT2;end if handle=author & author~="Dotoran" then do call WL("ca"handle" c6tried to play, but is the cbAuthorc6!") se 'f1n1'hostF' and 'hostM' approach you from the wings. 'hostF' gives ' se 'you a playful slap on the butt. 'hostM' says, "Naughty. You wrote ' tr 'the puzzle and must wait until someone wins."n1' se 'After a moment, 'hostM' continues, "However, we will show you how ' tr 'your puzzle is doing before you leave."n1';call SHOWPUZZLE tr key2;signal QUIT2;end if newplay=0 & (sid=0 | access=0) then do call WL("ca"handle" c6tried to play, but was a cbGuestc6/cbNew Userc6!") se 'f1n1'hostM' looks at you quizically, "You''re NEW around here, aren''t ' se 'you? We do not currently allow NEW Users & GUESTS to Play The Wheel of ' tr 'Fortune, sorry"n1' se '"We will, however, show you how the current puzzle is doing, in case ' tr 'you''d like to play after you''ve been validated.", 'hostM' says.n1' call SHOWPUZZLE;tr key2;signal QUIT2;end if Lflag=1 then do call WL("ca"handle" c6tried to play, but is the cdLast Playerc6!") se 'f1n1'hostM' laughs in your face and signals for a bouncer to throw ' se 'you out of the studio. You were either the last player, or ' se 'have too much in common with the last player, and must wait for ' tr 'someone else to play.n1' if chance=1 then do;a=random(1,9);b=random(1,9);if a=b then do se 'n1As the bouncer approaches you, you kick him in the groin ' se 'and run onto the studio set. 'hostM' has no choice, but to let ' tr 'you play again!n1'key1;Lhan='Bouncer in Agony!' call WL("ca"handle" c6beat up the cbBouncer c6to play again!") signal PLAYGAME2;end;end if chance>1 & (el>=(chance-1)*2) then do se 'Twiddling his thumbs, 'hostM' looks at his watch, then ' se 'tells you, "'handle', it''s been '||(chance-1)*2||' hours since ' se 'you last played, and we haven''t had any new contestants, ' tr 'so come on down and take another spin!"n1'key1 call WL("ca"handle" c6waited the cbalotted time c6to play again!") signal PLAYGAME2;end se 'From over the bouncers shoulder, you get a glimpse of how ' tr 'the current puzzle is doing...n1';call SHOWPUZZLE if chance>1 then do;se 'n1'hostM' then tells you, "'handle', if no other players take a ' tr 'turn in the next '||((chance-1)*2)-el||' hours, we''ll let you play again."';end LHan="";tr key2;signal QUIT2;end PLAYGAME2: /* If a user succeeds in crippling the bouncer, come HERE! */ if puznum~=puzplay then do;puznum=puzplay;moncur=0 if handle~=winhan then do;played=played+1 call WL("ca"handle" c6just ceentered c6this cbGamec6!") percent=((puzwon/played)*100)%1;end;end if vanna=2&(vannaA=1|(vannaA=2&age>13)|(vannaA=3&age>15)) then do se 'view graphic picture of Vanna White now? [No]: ';gc;a=result if a~='Y' then tr 'No.';else do;tr 'Yes!' se "L70#"handle"? Glad to}L71#"hostF",}L72#"hostM" welcomes you to the show,}*4"dfile"Graphics/vanna.asc}@4";end;end if vanna=1&(vannaA=1|(vannaA=2&age>13)|(vannaA=3&age>15)) then do se "L70#"handle"? Glad to}L71#"hostF",}L72#"hostM" welcomes you to the show,}*4"dfile"Graphics/vanna.asc}@4";end if OLog<2&NLog<2&Spin<3&Gasc<4&vanna>0 then tr key1 PLAY: /* Start of actual PLAY. Show logs, create wheel, etc... */ if consonants=0 & vowels=0 then do;solve=answer;signal GUESSPUZZLE0;end if lo=0 then do;lo=1;call MORE1 if OLog=1 then tr 'f1Previous Game Log:n1*0'tfile'Log.OLD.ASC}q1n1'key1 if OLog=2 then do;se 'n1View OLD Game Log Now? [No]: ';gc;a=result if a~='Y' then tr 'No.';else tr 'Yes!f1*0'tfile'Log.OLD.ASC}q1n1'key1;end if NLog=1 then tr 'f1Current Game Log:n1*0'tfile'Log.NEW.ASC}q1n1'key1 if NLog=2 then do;se 'n1View NEW Game Log Now? [No]: ';gc;a=result if a~='Y' then tr 'No.';else tr 'Yes!f1*0'tfile'Log.NEW.ASC}q1n1'key1;end if spin=3 then do;se 'n1Use the [Q]uick or [W]edge Wheel Graphics? ' se '[Wedges]: ';gc;a=result;if a='Q' then do;tr 'Quick';Spin=0;end else do;tr 'Wedges';spin=1;end;end if gasc=4 then do;tr 'n1Possible Puzzle Guessing Formats:n1' tr '>5[R]egular Format (You type ALL characters in Puzzle Title.)' tr '>5<F>ill-In-Knowns (Known characters automatically entered in.)' se 'n1Use which Puzzle Guessing format? [Regular]: ';gc;a=result if a='F' then do;tr 'Fill-In-Knowns';gasc=2;end;else do;tr 'Regular';gasc=0;end;end;end a=length(space(answer,0));b=a-(consonants+vowels);call MORE0 if b/a>.50 & wh=1 then do;tr 'n1'hostM' says, "We will now add $1000 to the Wheel!"' tr key1;wheel=wheal;wh=2;end tr 'f1*==========================================================================*' tr '|>X<>X<>X<><><><>< >< >< >< > WHEEL OF FORTUNE < >< >< >< ><><><><>X<>X<>X<|' tr '*==========================================================================*' tr ' Wheel Spots / Odds ' if wh=1 then tr ' 1-$750, 1-$600, 1-$500, 1-$450, 3-$400, 3-$300, 3-$250, 3-$200,' if wh=2 then tr ' 1-$1000, 1-$750, 1-$600, 1-$500, 1-$450, 3-$400, 3-$300, 3-$250, 2-$200,' tr ' 2-$150, 2-$100, 1-Free Spin, 1-Lose Turn, 1-Bankrupt, 1-Surprisen1' tr 'Current Puzzle Number: 'left(puznum,20)'Last Player: 'Lhan tr 'Current Puzzle Author: 'left(author,20)'Last Winner: 'winhan'n1' se 'PLAYER: 'left(handle,16)' WINNINGS: $';call CNUM(moncur) se left(a,9)' PREVIOUS WINNINGS: $';call CNUM(monwon);tr a'n1' if Banked=1 & monwon>0 & moncur<300 then do a1='[U]se Previous Funds';s=',U';end else do;a1=' Cash Letter: 'word("Hidden Found",(index(guessed,cashLV)>0)+1);s='';end tr left(spa,6)'[S]pin the Wheel [B]uy a Vowel [C]hange Wheel: 'word('Quick Wedges',spin+1) tr left(spa,6)'[G]uess the Puzzle [Q]uit Play 'a1 tr;call SHOWPUZZLE;tr left(spa,33)'Free Spins: 'freespins'n1' if consonants>0 & vowels>0 then tr center('Good Luck!n1',81) if consonants=0 then tr center('There are ONLY Vowels left in this Puzzle!n1',81) if vowels=0 then tr center('There are NO MORE Vowels left in this Puzzle!n1',81) se '[Play] >>>--S,B,C,G,Q's'--> ' PLAY1: /* Come back here if invalid command is entered. */ gc;a=result;ck=CHECK();if index('!SBCGQU',a)=0 then do;bf;signal PLAY1;end;if a="!"&MFlag=1 then tr 'n1'answer' ['cashLV']' if a='U' & Banked=1 & monwon>300 & moncur<300 then do tr 'use Funds';signal USEFUNDS;end if a='S' then do;tr 'Spin Wheel' ;signal SPINWHEEL ;end if a='B' then do;tr 'Buy Vowel' ;signal BUYVOWEL ;end if a='G' then do;tr 'Guess Puzzle';signal GUESSPUZZLE;end if a='C' then do;tr 'Change Wheel';signal CHANGEWHEEL;end if a='Q' then do;tr 'Quit Play' ;signal MAIN ;end signal PLAY1 USEFUNDS: /* If user presses the "U" command. */ moncur=moncur+300;monwon=monwon-300;Banked=0 signal PLAY CHANGEWHEEL: ; spin=~spin se 'n1Hearing your request, 'hostM' looks offstage, nods, then turns ' se 'back to you and says, "Alright, 'handle", we'll be able to use the " tr word("Quick Wedges",spin+1)' Wheel!"n1'key1 signal PLAY SPINWHEEL: /* The user hits "S" to Spin the Wheel. */ if consonants=0 then do;se 'n1'hostM' reminds you, "'handle', ' tr 'remember, there are ONLY VOWELS left in this puzzle."' call WL("ca"handle" c6tried to cfSPIN c6with ceONLY VOWELS c6left!") tr key1;signal PLAY;end if Spin=0 then do;se "f1n8Spinning: ";a1=random(1,24);t=slow%100 do i=1 to 24;se left(word(whe,word(wheel,i)),8) call time('r');do until time('e')>=t;end;se 'h8';end i do i=1 to a1;se left(word(whe,word(wheel,i)),8) call time('r');do until time('e')>=t;end;se 'h8';end i tr left(word(whe,word(wheel,a1)),8) c=word(wheel,a1);end if Spin=1 then do;a=random(25,60);sp=sp+a do until sp<30;sp=sp-25;end;b=random(2,4) a=sp-b;b=sp;if a<1 then a=1;action='Played ' do i=a to b;ii=i;if i>24 then ii=i-24;spot=word(wheel,ii) call D0;end i;end if Lhan~=handle & turn1>0 then do ; Lhan=handle if c=14 & (turn1=1 | turn1=3) then do se 'n1'hostM' begins to frown, then seems to remember something, "' se "That's right, if you spin a LOSE TURN on your first spin, it " tr 'doesn''t count."' call WL("ca"handle" c6beat a c9LOSE TURN c6on the first spin!") tr key1;signal PLAY;end if c=15 & turn1>1 then do se 'n1'hostM' begins to frown, then seems to remember something, "' se "That's right, if you spin a BANKRUPT on your first spin, it " tr 'doesn''t count."' call WL("ca"handle" c6beat a c9BANKRUPT c6on the first spin!") tr key1;signal PLAY;end end if c=12 then signal FREESPIN;if c=13 then signal SURPRISE if c=14 then signal LOSETURN;if c=15 then signal BANKRUPT a='100 150 200 250 300 400 450 500 600 750 1000';money=word(a,c) tr 'n1There is $'money' showing on the Wheel!n1' SURPRISE0B: /* When a Surprise of more than $1000 comes up on the Wheel! */ call SHOWPUZZLE;se 'Type Your Guess: ' SPINWHEEL1: /* Return here if the consonant was already guessed! */ gc;guess=result;ck=CHECK();if index(cons,guess)=0 then signal SPINWHEEL1 bf;se guess;call CNUM(money) log="c6With c2$ca"a" c6on cfThe Wheelc6, ca"handle log=log" c6guesses c9"guess"c6...";call WL(log) if index(guessed,guess)>0 then do call WL("c6Which was c9ALREADY cbGuessedc6!") se ' Consonant Already Guessed!!w1hfhf' signal SPINWHEEL1;end call COUNT ; c="" ; if tot>1 then c="'s" if guess=cashLV & cashL>0 then do se "n2 *BEEP*b1w1 *BEEP*b1w1 *BEEP*b1w1n2" se ' 'hostM' jumps with a start, "Well, 'handle', those beeps mean you''ve ' se 'just guessed our CASH LETTER for this game. ';call CNUM(cashLA) if cashL=1 then do call WL(handle" guessed the CASH LETTER and won $"a" additional dollars!") se 'You''ve just accumulated $'a' additional dollars for guessing the ' tr 'CASH LETTER!"n1' ; moncur=moncur+cashLA ; end else do if cashL=2 then se 'If there are any 'guess'''s in this puzzle, we''ll award you $'a' additional dollars... ' if cashL=3 then se 'We''ll award you $'a' dollars for EACH 'guess' found in this puzzle... ' tr 'Alright, 'hostF', are there any 'guess'''s in this puzzle?"w1n1' if cashL=2 & tot>0 then do call WL(handle" guessed the CASH LETTER and won $"a" additional dollars!") se ' 'hostF' looks relieved and says, "With at 'tot' 'guess||c' in this ' se 'puzzle, you now have an additional $'a' dollars for guessing our ' tr 'CASH LETTER!"n1' ; moncur=moncur+cashLA ; end if cashL=3 & tot>0 then do ; call CNUM(cashLA*tot) call WL(handle" guessed the CASH LETTER and won $"a" additional dollars!") se ' 'hostF' squeals with delight, then looks at you, "Wow 'handle', ' se 'you''re hot today! With 'tot' 'guess||c' in this puzzle, you ' se 'now have an additional $'a' dollars for guessing the CASH ' tr 'LETTER!"n1' ; moncur=moncur+(cashLA*tot) ; end end ; se key1 end if index(answer,guess)>0 then do;tr ' >>>---> GOOD GUESS!n1' g=guessed;if g='' then g=guess;else g=g'-'guess guessed=g;consonants=consonants-tot call UNCOVER;Lhan=handle if tot=1 then call WL("c6There was ce1 c9"guess"c6 in the puzzle: "puzzle) if tot>1 then call WL("c6There were ce"tot" c9"guess"c6's in the puzzle: "puzzle) if index(cons,guess)>0 then moncur=moncur+(money*tot) if tot=1 then se left(spa,20)'There is 1 "'guess'" ' else se left(spa,20)'There are 'tot' "'guess'"''s ' tr 'in the puzzle.n1'key1;signal PLAY;end if index(answer,guess)=0 then do;tr ' >>>---> WRONG!!n1' g=guessed;if g='' then g=guess;else g=g'-'guess guessed=g;Lhan=handle call WL("c6But there were cbNO c9"guess"c6's in the puzzle: "guessed) if free>0 & freespins>0 then do se hostM" asks if you'd like to use a FREE SPIN right now? [Yes]: " gc;a=result;if a='N' then do;tr 'No.';freeF=1;end;else tr 'Yes!';end if freespins=0 | freeF=1 then do;tr 'Awwww... Better Luck next time.' call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end tr 'But not to worry, You can use a Free Spin!' call WL("c6However, ca"handle" c6uses a cbFree Spinc6!") freespins=freespins-1;tr key1;signal PLAY;end FREESPIN: /* If the "Free Spin" comes up on the Wheel! */ call WL("ca"handle" c6just landed on cbFREE SPINc6!") se 'n1'hostM' says, "Congratulations 'handle', you now have a Free ' tr 'Spin!"';freespins=freespins+1;Lhan=handle if free=2 & freespins>5 then do se 'n1'hostM' refers to his guidelines, then remarks, "'handle', it says ' se 'here that you''ll only be able to SAVE 5 Free Spins when you exit this ' tr 'game, so if you can, try and make the most out of the extra spins!"' end tr key1 signal PLAY LOSETURN: /* If the "Lose Turn" comes up on the Wheel! */ call WL("ca"handle" c6just landed on cdLOSE A TURNc6!") se 'n1Frowning, 'hostM' tells you, "Uh Oh 'handle', looks like you ' tr 'Lose a Turn."n1';Lhan=handle if free>0 & freespins>0 then do se hostM" asks if you'd like to use a FREE SPIN right now? [Yes]: " gc;a=result;if a='N' then do;tr 'No.';freeF=1;end;else tr 'Yes!';end if freespins=0 | freeF=1 then do se '"That''s too bad, you weren''t doing all that bad. Well, you ' tr 'can try again next call", 'hostM' mumbles.' call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2 end se '"That''s alright, however, because you still have a Free ' tr 'spin!", 'hostM' says consolingly.';freespins=freespins-1 call WL("c6However, ca"handle" c6uses a cbFree Spinc6!") tr key1;signal PLAY BANKRUPT: /* If the "Bankrupt" comes up on the Wheel! */ call WL("ca"handle" c6just landed on c9BANKRUPTc6!");call CNUM(moncur) call WL("ca"handle" c6loses c2$ca"a" c6bucks!") se 'n1"BANKRUPT! Only one on the whole wheel, and 'handle', you ' tr 'just found it", 'hostM' informs you.n1';moncur=0;Lhan=handle if free>0 & freespins>0 then do se hostM" asks if you'd like to use a FREE SPIN right now? [Yes]: " gc;a=result;if a='N' then do;tr 'No.';freeF=1;end;else tr 'Yes!';end if freespins=0 | freeF=1 then do tr '"Hopefully you''ll do better next call!", 'hostM' explains.' call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2 end tr '"Luckily you still have a Free Spin!", 'hostM' praises.' call WL("c6However, ca"handle" c6uses a cbFree Spinc6!") freespins=freespins-1;tr key1;signal PLAY SURPRISE: /* The "Surprise" spot hits on the Wheel. Pick 1 of 6 Awards! */ call WL("ca"handle" c6just landed on cfSURPRISEc6!") tr 'n1"Wow, SURPRISE!", 'hostM' exclaims!';Lhan=handle a=random(1,6);a='SURPRISE'a;signal (a) SURPRISE1: /* The "Free Spin" Surprise (Default # 1) */ call WL("ca"handle"c6's cfSURPRISE c6is a cbFREE SPINc6!") se 'n1"Well, 'handle' your Surprise is a FREE SPIN!", 'hostM' informs ' tr 'you.';freespins=freespins+1 if free=2 & freespins>5 then do se 'n1'hostM' refers to his guidelines, then remarks, "'handle', it says ' se 'here that you''ll only be able to SAVE 5 Free Spins when you exit this ' tr 'game, so if you can, try and make the most out of the extra spins!"' end tr key1;signal PLAY SURPRISE2: /* The "Free Vowel" Surprise (Default # 2) */ if vowels=0 then signal SURPRISE3 call WL("ca"handle"c6's cfSURPRISE c6is a ceFREE VOWELc6!") se 'n1"Hey 'handle', Congratulations, your SURPRISE is to ' tr 'BUY a VOWEL for FREE!", 'hostM' states.n1' moncur=moncur+250;signal SURPRISE0A SURPRISE3: /* The "More than $1000" Surprise (Default # 3) */ c=random(1000,1500);money=c;call CNUM(money) call WL("ca"handle"c6's cfSURPRISE c6is c2$ca"a" c6on cfThe Wheelc6!") se 'n1Pulling out a white envelope, 'hostM' opens it and says, "'handle tr ', this next guess will be worth $'a' bucks! Good Luck!"n1' signal SURPRISE0B SURPRISE4: /* First Configurable Surprise (1st Surprise in CONFIG) */ suPR=suPR1;suVA=suVA1;signal SURPRISE7 SURPRISE5: /* Second Configurable Surprise (2nd Surprise in CONFIG) */ suPR=suPR2;suVA=suVA2;signal SURPRISE7 SURPRISE6: /* Third Configurable Surprise (3rd Surprise in CONFIG) */ suPR=suPR3;suVA=suVA3 SURPRISE7: /* Dishes out the Surprise if one of the Configurable ones! */ if suPR=5 then signal SURPRISE2;if suPR=6 then signal SURPRISE1;if suPR=4 then signal SURPRISE3 if (suPR=0 & InfTimeR=1) | (suPR=1 & InfGameP=1) | (suPR=2 & InfByteC=1) | (suPR=3 & InfFileC=1) then do a=random(1,3);a='SURPRISE'a;signal (a);end if suPR=0 then do;addtime (suVA) call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfExtra Minutesc6!") se sysop' waves 'hostM' over to him. When he returns, 'hostM' tells you, ' se '"Congrats 'handle', 'sysop' has given you 'suVA tr ' Extra Minutes Online!"n1'key1;end if suPR=1 then do;addpoints (suVA);call CNUM(suVA) call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfPfile Game Pointsc6!") se 'The Director tells 'hostM' he has a phone call from 'sysop'. When ' se 'he returns, 'hostM' tells you, "Hey 'handle', Guess what?! 'sysop tr ' has decided to give you 'a' Pfile Game Points. Congrats!"n1'key1;end if suPR=2 then do;gu 35;a=result;a=a+suVA;setobject a;putuser 35;call CNUM(suVA) call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfByte Creditsc6!") se hostF' steps offstage, then returns with a satisfied grin on her face, ' se '"I''ve just been with 'sysop'! He wants you to receive 'a tr ' Byte Credits as your Surprise! Good Going!"n1'key2;end if suPR=3 then do;gu 34;a=result;a=a+suVA;setobject a;putuser 34 call WL("ca"handle"c6's cfSURPRISE c6is ca"suVA" cfFile Creditsc6!") se hostF' faints dead away on the stage. When she comes to, she tells ' se 'you, "I''ve just had a vision from 'sysop'! In it, he told me ' tr 'to make sure you received 'suVA' File Credits right now!"n1'key2;end signal PLAY BUYVOWEL: /* User presses "B" to Buy a Vowel. */ if vowels=0 then do;se 'n1'hostM' reminds you, "'handle', ' tr 'remember, there are ONLY CONSONANTS left in this puzzle."' call WL("ca"handle" c6tried to cfBUY A VOWEL c6with ceONLY CONSONANTS c6left!") tr key1;signal PLAY;end if moncur<300 then do call WL("ca"handle" c6tried to ceBUY c6a cbVowel c6with only c2$ca"moncur"c6!") se 'n1'hostM' informs you Vowels Cost $250, and that you''ll ' tr 'need at least $300 to buy one!n1'key1;signal PLAY;end se 'f1n4Turning towards you, 'hostM' says, "'handle', enter the ' tr 'VOWEL you wish to Guess. Remember, this will cost you $250!"n1' SURPRISE0A: /* If a Surprise comes up on the Wheel for a Free Vowel! */ call SHOWPUZZLE;action='Played ';se 'Type Your Guess: ' BUYVOWEL1: /* Come back here if user guesses a vowel already guessed. */ gc;guess=result;ck=CHECK();bf;if index(vows,guess)=0 then signal BUYVOWEL1;else se guess call WL("ca"handle" ceBUYS c6the cbVowel c9"guess"c6...") if index(guessed,guess)>0 then do call WL("c6But that cbVowel c6was c9Already c6guessed!") se ' Vowel Already Guessed!!w1hfhb' signal BUYVOWEL1;end call COUNT ; c="" ; if tot>1 then c="'s" if guess=cashLV & cashL>0 then do se "n2 *BEEP*b1w1 *BEEP*b1w1 *BEEP*b1w1n2" se ' 'hostM' jumps with a start, "Well, 'handle', those beeps mean you''ve ' se 'just guessed our CASH LETTER for this game. ';call CNUM(cashLA) if cashL=1 then do call WL(handle" guessed the CASH LETTER and won $"a" additional dollars!") se 'You''ve just accumulated $'a' additional dollars for guessing the ' tr 'CASH LETTER!"n1' ; moncur=moncur+cashLA ; end else do if cashL=2 then se 'If there are any 'guess'''s in this puzzle, we''ll award you $'a' additional dollars... ' if cashL=3 then se 'We''ll award you $'a' dollars for EACH 'guess' found in this puzzle... ' tr 'Alright, 'hostF', are there any 'guess'''s in this puzzle?"w1n1' if cashL=2 & tot>0 then do call WL(handle" guessed the CASH LETTER and won $"a" additional dollars!") se ' 'hostF' looks relieved and says, "With 'tot' 'guess||c' in this ' se 'puzzle, you now have an additional $'a' dollars for guessing our ' tr 'CASH LETTER!"n1' ; moncur=moncur+cashLA ; end if cashL=3 & tot>0 then do ; call CNUM(cashLA*tot) call WL(handle" guessed the CASH LETTER and won $"a" additional dollars!") se ' 'hostF' squeals with delight, then looks at you, "Wow 'handle', ' se 'you''re hot today! With 'tot' 'guess||c' in this puzzle, you ' se 'now have an additional $'a' dollars for guessing the CASH ' tr 'LETTER!"n1' ; moncur=moncur+(cashLA*tot) ; end end ; se key1 end if index(answer,guess)>0 then do;tr ' >>>---> GOOD GUESS!n1' g=guessed;if g='' then g=guess;else g=g'-'guess guessed=g;vowels=vowels-tot call UNCOVER;moncur=moncur-250 if tot=1 then call WL("c6There was ce1 c9"guess"c6 in the puzzle: "puzzle) if tot>1 then call WL("c6There were ce"tot" c9"guess"c6's in the puzzle: "puzzle) if tot=1 then se left(spa,20)'There is 1 "'guess'" ' else se left(spa,20)'There are 'tot' "'guess'"''s ' tr 'in the puzzle.n1'key1;signal PLAY;end if index(answer,guess)=0 then do;tr ' >>>---> WRONG!!n1' g=guessed;if g='' then g=guess;else g=g'-'guess guessed=g;Lhan=handle;moncur=moncur-250 call WL("c6But there were cbNO c9"guess"c6's in the puzzle: "guessed) if free>0 & freespins>0 then do se hostM" asks if you'd like to use a FREE SPIN right now? [Yes]: " gc;a=result;if a='N' then do;tr 'No.';freeF=1;end;else tr 'Yes!';end if freespins=0 | freeF=1 then do;tr 'Awwww... Better luck next time.n1' call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end tr 'But not to worry, You can use a Free Spin!' call WL("c6However, ca"handle" c6uses a cbFree Spinc6!") freespins=freespins-1;tr key1;signal PLAY;end GUESSPUZZLE: /* Ask for Puzzle Guess & if the USER guesses WRONG! */ if zero=2 & moncur<100 then do se 'n1'hostM' gazes at you with a whimsical grin, then tells you, "' se "we don't usually allow players with less than $100 to guess the " se 'puzzle 'handle", but I tell you what. I'll let you spin the " se 'wheel once, and if you can hit FREE SPIN, SURPRISE, LOSE TURN, ' se "or BANKRUPT, I'll let you guess the puzzle. If you hit on one " se 'of the DOLLAR spots, however, you''ll have to exit the game."n1'key1 se "n2Spinning: ";a1=random(1,24);t=slow%100 do i=1 to 24;se left(word(whe,word(wheel,i)),8) call time('r');do until time('e')>=t;end;se 'h8';end i do i=1 to a1;se left(word(whe,word(wheel,i)),8) call time('r');do until time('e')>=t;end;se 'h8';end i tr left(word(whe,word(wheel,a1)),8) if word(wheel,a1)<12 then do ; Lhan=handle se 'n1'hostM' looks at you apologetically and says, "Oh well ' se handle', maybe next time."n1'key1;signal PLAY;end se 'n1'hostM' is all smiles, "Very Good, 'handle', now lets see ' se 'just how good you REALLY are!"n1'key1;zero=1;end if zero=0 & moncur<100 then do se 'n1'hostM' wipes his brow, then looks at you, "Sorry, 'handle se ', but you need more than $100 before you can attempt to GUESS ' tr 'this puzzle!"n1'key1;signal PLAY;end se 'f1n5Startled, 'hostM' asks, "So, 'handle', you think you know ' tr 'this puzzle. Well, good luck in guessing it!"n1' call WL("ca"handle" c6will try and cfSOLVE c6the puzzle...") call SHOWPUZZLE;len=length(puzzle) tr 'n1Type your Guess below the Current Puzzle:n1' tr ' The Puzzle Now: 'translate(puzzle,hide,'@') if gasc=0 then do;tr 'Your Best Guess: i4225 'len'}' gu 70;solve=result;ck=CHECK();signal ASC4;end if gasc=2 then do;pu=translate(puzzle,'@',hide) se "Your Best Guess: ";solve='';c=1 ASC1:;if c<=length(pu) then z=substr(pu,c,1);else z="" if z~="@"&z~="" then do;solve=solve||z;se z;signal ASC3;end ASC2:;gc;a=result;ck=CHECK() if a=d2c(13) then do;tr;signal ASC4;end if a=d2c(8) then do;if c=1 then signal ASC2;c=c-1 solve=left(solve,c-1);se "h1";signal ASC2;end;solve=solve||a;se a ASC3:;c=c+1;signal ASC1;end ASC4:;if solve~=answer then do call WL("c6But, alas, more cbSTUDY c6is needed for this puzzle!") se 'n1Shaking his head, 'hostM' tells you, "I''m sorry 'handle tr ', but that''s not the correct answer."n1' Lhan=handle if free>0 & freespins>0 then do se hostM" asks if you'd like to use a FREE SPIN right now? [Yes]: " gc;a=result;if a='N' then do;tr 'No.';freeF=1;end;else tr 'Yes!';end if freespins=0 | freeF=1 then do tr 'Awwww... Try again when a few more letters are showing.' call WL("ca"handle" c6is cffinished c6for this turn.") call SAVEPLAYERS;call SAVEDATA;signal QUIT2;end tr 'But not to worry, You can use a Free Spin!' call WL("c6However, ca"handle" c6uses a cbFree Spinc6!") freespins=freespins-1;tr key1;signal PLAY;end GUESSPUZZLE0: /* The USER guessed the puzzle, and was RIGHT! */ if solve=answer then do;if olmM=1 | (olmM=2 & olm=1) then do;se "Sending OLM's: " call SENDOLM(" cfCongratulations c6to cd"handle" c6who just c9SOLVED c6the current cbWheel of Fortune cePuzzlec6!");end call WL("cfCongratulations c6to ca"handle" c6who just cbSOLVED c6the puzzle!") se 'f1n1Clapping his hands, 'hostM' says, "Congratulations 'handle;call CNUM(moncur) tr ', You''ve just won $'a' in CASH and PRIZES!"' if puPR>0 then do;call CNUM(puVA) se 'n1For winning the game, 'sysop' Broadcasting has decided ' se 'to give you 'a' 'pr.puPR'! Enjoy them!n1' if puPR=1 then addtime (puVA);if puPR=2 then addpoints (puVA) if puPR=3 then do;gu 35;b=result;b=b+puVA;setobject (b);putuser 35;end if puPR=4 then do;gu 34;b=result;b=b+puVA;setobject (b);putuser 34;end call WL("ca"handle" c6was awarded cf"a" c9"pr.puPR"c6 for solving this cfPuzzlec6!");end if clue="CLUE" then do ; cp=random(100,300)*100 ; call CNUM(cp) ; cpt=a se 'n1After clapping his hands, 'hostM' continues, "This was also a ' se 'CLUE puzzle 'handle', so if you can also tell us what 'answer' is ' tr "a CLUE for, I'll award you an additional $"cpt' dollars!".n1' tr 'The Clue Was: 'answer tr 'Meaning What: i4225 'length(clueword)'}' gu 70;cluesolve=result;ck=CHECK() if cluesolve~=clueword then do ; clueF=0 ; call CNUM(moncur) se 'Frowning, 'hostM' tells you, "Oh, 'handle", I'm sorry, but that's " tr 'not correct. But, hey, you won $'a' anyways!"' end else do ; moncur=moncur+cp ; clueF=1 ; call CNUM(moncur) se 'Chuckling, Pat ambles up to you and extends his hand again, "Well, ' se handle', you DO know how to play this game. With the additional $' se cpt" dollars, you're total winnings so far total $"a tr ' dollars. Good Job!"' end end puzwon=puzwon+1;winhan=handle;windate=date;wins=puzwon winpuz=answer;played=played+1;monwon=monwon+moncur winmon=monwon;percent=((puzwon/played)*100)%1 winner=winhan'|'winpuz'|'windate'|'winmon'|'wins'|x' winners=winners+1;winner.winners=winhan'|'winpuz'|'windate'|x' l.1='cc'right('cf'dateL,78,'=')'cc===' l.2='cf The Win Datec9: cb'dateL l.3='cf The Puzzlec9: ce'answer l.4='cf Puzzle Cluec9: ca'clue call CNUM(winmon) l.5='cf Puzzle Winnerc9: cd'handle l.6='cfTotal Winningsc9:c2$ca'a if clue="CLUE" & clueF=1 then do ; call CNUM(cp) l.6=l.6" cf(c6including c2$ca"a" c6for cbguessing the cfCLUEc6!cf)" end do i=1 to 6;call WL(l.i);end i;if winners>max1 then do;winners=max1 do i=2 to max1+1;j=i-1;winner.j=winner.i;end i;end if played>mostplays then do;se 'n1'hostM' says, "'handle tr ', you broke the old MOST PLAYS Record!"' call WL("ce A NEW RECORDc9: cfPlayed the caMOST cfTimes!") mostplaysH=winhan;mostplays=played;end if wins>mostpuzs then do;se 'n1'hostM' says, "'handle tr ', you broke the old MOST PUZZLES Record!"' call WL("ce A NEW RECORDc9: cfWon the caMOST cfPuzzles!") mostpuzsH=winhan;mostpuzs=wins;end if monwon>mostbank then do;se 'n1'hostM' says, "'handle tr ', you broke the old MOST TOTAL WINNINGS Record!"' call WL("ce A NEW RECORDc9: cfWon the caMOST cfBucks cdEVERcf!") mostbankH=winhan;mostbank=monwon;end if moncur>mostcash then do;se 'n1'hostM' says, "'handle tr ', you broke the old MOST WINNINGS Record!"' call WL("ce A NEW RECORDc9: cfWon the caMOST cfBucks in cdONE GAMEcf!") mostcashH=winhan;mostcash=moncur;end stats.1=mostplaysH'|'mostplays'|x';stats.2=mostpuzsH'|'mostpuzs'|x' stats.3=mostbankH'|'mostbank'|x' ;stats.4=mostcashH'|'mostcash'|x' if monwon>=1000000 then do;se 'n1'hostM' says, "'handle", you've won more than One Million " tr 'dollars! Adding you to the Regular Millionaires List!"' call WL("ce A MILLIONAIREc9: caOne Million cfdollars in cbRegular Prize cfmoney!") monwon=monwon-1000000;z=millionaires+1;do i=1 to millionaires if index(mil.i,handle)~=0 then do;z=i;leave i;end end i ; if z>millionaires then millionaires=z;mills=mills+1 if mills=mills3 then do;se 'n1After doing so, 'hostM' says, "Hey 'handle", you now have "mills3" MILLION dollars! " tr 'I''m adding you as our next ALL TIME BEST WOF PLAYER!"' call WL("ce A NEW BANKERc9: ca"mills3" MILLION cfdollars in cbRegular Prize cfmoney!") mills=0 ; BFlag=1 ; zz=bankers+1;do i=1 to bankers if index(bil.i,handle)~=0 then do;zz=i;leave i;end end i ; if zz>bankers then bankers=zz t=btype.zz ; if t=2|t=3 then t=3 ; else t=1 if zz=bankers then bills.zz=mills3;else bills.zz=bills.zz+mills3 bil.zz=bills.zz'|'date'|'handle'|'t'|x' if bankers>max3 then do;do i=2 to bankers+1 ; j=i-1 ; bil.j=bil.i ; end i bankers=max3 ; end;call SAVEBANKERS ; call READBANKERS ; mil.z='' do i=1 to millionaires ; j=i+1 if mil.i='' then do ; mil.i=mil.j ; mil.j='' ; end end i ; millionaires=millionaires-1 ; end if mills>0 then do ; mil.z=mills'|'date'|'handle'|x' if millionaires>mills1 then do do i=2 to mills1+1 ; j=i-1 ; mil.j=mil.i ; end i millionaires=mills1 ; end ; end call SAVEMILLIONAIRES;call READMILLIONAIRES;end call SAVEWINNERS;call SAVEWINNER;call SAVESTATS;call SAVEPLAYERS call WL("c9"right("ce"dateL,78,'-')"c9---");call BONUSROUND t1=boncash+(bmills*1000000);t2=monwon+(mills*1000000) if (resetM=2&t2>=resetV)|(resetM=4&t1+t2>=resetV)|(resetM=5&BFlag=1) then call RESETGAME se 'n1Shaking your hand, 'hostM' tells you, "As the newest Wheel of ' tr 'Fortune Winner, you have to make a choice."n1' tr ' 1: Create a New Puzzle for use at a LATER date.n1' tr ' 2: Let 'bbsname' Generate next puzzle.(DEFAULT)n1' se 'What''s your choice, 'handle'? ';gc;ga=result if ga~='1' then signal GENERATE MAKEPUZZLE: /* If the USER is making next puzzle, enter the PUZZLE here. */ tr 'I''ll make it!';se '"OK, 'handle', Please enter your Puzzle:", ' tr hostM' asks fervently.';tr 'Puzzle:i4225 50}';gu 70;a=result;a=strip(a,'b') if result='###PANIC' | result='' then signal GENERATE if length(a)<9 then do;se 'Whispering in your ear, 'hostF' tells you that ' se 'puzzle is too short.n1';signal MAKEPUZZLE;end se '"'a'"Is this correct 'handle'? (Y/n): ' gc;b=result;if result='###PANIC' then signal GENERATE if b~='N' then do;tr 'Yes!';newpuz=a;end if b='N' then do;se 'No. Try Againn1';signal MAKEPUZZLE;end se '"Now enter a Clue for your Puzzle, 'handle'", ' tr hostM' guides you.' MAKECLUE: /* If the USER is making next puzzle, enter the CLUE here. */ tr ' Clue:i4225 20}';gu 70;a=result;a=strip(a,'b') if result='###PANIC' | result='' then signal GENERATE if length(a)<3 then do;se 'Pinching your butt, 'hostF' gives you the sign that ' se 'your clue is too short.n1';signal MAKECLUE;end se '"'a'"Is this correct 'handle'? (Y/n): ' gc;b=result;if result='###PANIC' then signal GENERATE if b~='N' then do;tr 'Yes!';newclue=a;end if b='N' then do;se 'No. Try Againn1';signal MAKECLUE;end author=handle;a=exists(dfile'NewPuz') if a=0 then call open(f1,dfile'NewPuz','w') if a=1 then call open(f1,dfile'NewPuz','a') z=newpuz'|'newclue'|'author'|x';call writeln(f1,z) call close(f1);call WL("ca"handle" c6decided to ceMAKE c6a new puzzle...") se 'n1'HostM' shakes your hand once again, "Thanks 'handle', we''ll be sure ' tr 'to use your puzzle sometime in the future."' GENERATE: /* If the BBS will select the next Puzzle. */ if ga~=1 then tr 'Generate NEW Puzzle!' call open(f1,dfile'PuzData','r');a=strip(readch(f1,5),'t',d2c(0)) if nextpuznum>a then nextpuznum=1 ptr=((nextpuznum*90)-90)+5;call seek(f1,ptr,'b') p=strip(readch(f1,50),'t',d2c(0));c=strip(readch(f1,20),'t',d2c(0)) a=strip(readch(f1,20),'t',d2c(0));call close(f1);nextpuznum=nextpuznum+1 newpuz=translate(p,reverse(xrange('!','~')),xrange('!','~')) newclue=translate(c,reverse(xrange('!','~')),xrange('!','~')) author=translate(a,reverse(xrange('!','~')),xrange('!','~')) if author='Pat & Vanna' then author=hosts call WL("ca"handle" c6decided to let ce"bbsname" c6choose the next puzzle...") GENERATE2: /* Save NEW Puzzle data for next game. */ puzplay=puzplay+1;consonants=0;vowels=0;guessed='' do i=1 to length(newpuz);z=substr(newpuz,i,1) if index(cons,z)>0 then consonants=consonants+1 if index(vows,z)>0 then vowels=vowels+1 end i;answer=newpuz;Lhan='No One';clue=newclue cashLV=d2c(random(65,90));cashLA=random(10,20)*100 puzzle=translate(answer,,xrange('A','Z'),'@');newlog=0;call SAVELOG if exists(tfile'Log.OLD.ASC') then address command 'delete 'tfile'Log.OLD.ASC';address command 'rename 'tfile'Log.NEW.ASC 'tfile'Log.OLD.ASC' if exists(tfile'Log.OLD.ANS') then address command 'delete 'tfile'Log.OLD.ANS';address command 'rename 'tfile'Log.NEW.ANS 'tfile'Log.OLD.ANS' if exists(tfile'Log.OLD.IBM') then address command 'delete 'tfile'Log.OLD.IBM';address command 'rename 'tfile'Log.NEW.IBM 'tfile'Log.OLD.IBM' call open(f1,tfile'LastPlayer','w');call writeln(f1,'0|No One|No Where|0|0|1|0|x');call close(f1) log.1='cfNEW cbGame c6Started Onc9: cb'dateL;newlog=1 log.2='cf The NEW Puzzlec9: ce'puzzle;log.3='cf NEW Puzzle Cluec9: ca'clue log.4='cf NEW Puzzle Authorc9: cd'author;log.5='cc'right('cf'dateL,78,'=')'cc===' logs=5;call SAVELOG;se 'n1'hostM' & 'hostF' would like to Thank You for playing ' se 'Wheel of Fortune today, and hope to see you as a contestant ' tr 'again someday!';aut=author;call SAVEDATA;if play=1 & handle~=aut then do se 'n1'hostM' asks, "Would you like to be the FIRST player of the ' se 'NEW Game 'handle'?"n1(y/N): ';gc;a=result;if a='Y' then do;tr 'Yes!';signal BEGIN;end else tr 'No.';end signal QUIT3 BONUSROUND: /* Ask to Play Bonus Round & Play if Affirmative! */ call WL("ca"handle" c6is eligible to play the cfBONUS Roundc6...") se 'n1Would YOU like to Play the Bonus Round? [Yes]: ';gc;a=result if a='N' then do;tr 'No.';call WL("c6But ca"handle" c9declinesc6 playing! Why?!?");tr 'f1';return;end tr 'Yes!';call WL("cfAlrightc6, ca"handle" c6accepts the challenge...");changewhere "WOF Bonus Round" if smart=2 then do;se 'n1Would YOU like to Use Smart Bonus Letters? [No]: ';gc;a=result if a~='Y' then do;tr 'No.';smart=0;end;else do;tr 'Yes!';smart=1;end;end call open(f1,dfile'PuzData','r');a=strip(readch(f1,5),'t',d2c(0)) if nextbonpuz<1 then nextbonpuz=a;npn=nextbonpuz do until length(p)>=minB & c~="[0+0->1" ptr=((npn*90)-90)+5 ; call seek(f1,ptr,'b') p=strip(readch(f1,50),'t',d2c(0)) c=strip(readch(f1,20),'t',d2c(0)) npn=npn-1 end a=strip(readch(f1,20),'t',d2c(0)) call close(f1);newpuz=translate(p,reverse(xrange('!','~')),xrange('!','~')) newclue=translate(c,reverse(xrange('!','~')),xrange('!','~'));answer=newpuz author=translate(a,reverse(xrange('!','~')),xrange('!','~'));clue=newclue puzzle=translate(answer,,xrange('A','Z'),'@');len=length(puzzle) prize=random(100,500)*100;call CNUM(prize);let='RSTNLE' tr 'f1 o----------------------------------------------------------------o' tr ' |>X<>X<>X<>X<>X<>X< Welcome to the Bonus Round >X<>X<>X<>X<>X<>X<|' tr ' o----------------------------------------------------------------on1' se hostM' explains the Bonus Round, "You''ll be trying to solve a puzzle in a ' se 'set amount of time. We''ll give you the letters R, S, T, N, L, and E. ' se 'You will also be asked for three(3) more consonants, and one(1) more vowel. ' se 'If you can solve the Bonus Puzzle before time runs out, you''ll win ' tr 'today''s Cash Prize of $'a' bucks!"n1' if smart=0 & smartB>0 then do;call CNUM(smartB) se 'If you select R, S, T, N, L, or E for one of your Additional letters, ' se 'and then SOLVE the Bonus Puzzle, you will be awarded $'a' bucks, ' tr 'in addition to Today''s Cash Prize.n1';end do ii=1 to 6;guess=substr(let,ii,1);call UNCOVER;end ii tr ' The Bonus Puzzle: 'translate(puzzle,Hide,'@')'n1' tr ' The Bonus Clue: 'clue BROUND1: /* Come back here if Smart Bonus is ON and "RSTNL" is guessed. */ se 'n1Enter three(3) more consonants:i4225 3}';gu 70;a=result;ck=CHECK();a1=left(a,1);a2=substr(a,2,1);a3=substr(a,3,1);if a1="!"&MFlag=1 then do;tr 'n1'answer;signal BROUND1;end if index(cons,a1)=0|index(cons,a2)=0|index(cons,a3)=0 then do;tr 'n1Please type THREE CONSONANTS now!';signal BROUND1;end if smart=1 & index(let,a1)~=0 then tr 'n1The consonant 'a1' was already given to you.' if smart=1 & index(let,a2)~=0 then tr 'n1The consonant 'a2' was already given to you.' if smart=1 & index(let,a3)~=0 then tr 'n1The consonant 'a3' was already given to you.' if smart=1 & (index(let,a1)~=0|index(let,a2)~=0|index(let,a3)~=0) then signal BROUND1 BROUND2: /* Come back here if Smart Bonus is ON and "E" is guessed. */ se 'n1 Enter one(1) more vowel now:i4225 1}';gu 70;a4=result;ck=CHECK() if index(vows,a4)=0 then do;tr 'n1Please type ONE VOWEL now!';signal BROUND2;end if smart=1 & a4='E' then do;tr 'n1The vowel E was already given to you.';signal BROUND2;end do ii=1 to 4;guess=substr(a1||a2||a3||a4,ii,1);call UNCOVER;end ii Bprize=0;do ii=1 to 4;if index(let,substr(guess,ii,1))>0 then Bprize=1;end ii se 'n1'hostF' nudges 'hostM' to bring him out of his stupor, "Alright, 'handle', ' se 'you will be given 'timer' seconds to solve the Bonus Puzzle! ' tr 'Press any key when you''re ready to Start the Bonus Round!"n1'key1 tr 'f1 o------------------------------------------------------------------o' tr ' |>X<>X<>X<>X<>X<>X< Can You Win the Bonus Round? >X<>X<>X<>X<>X<>X<|' tr ' o------------------------------------------------------------------on1' se ' The Bonus Prize is: $';call CNUM(prize);tr a' bucks!n1' tr ' Bonus Letters Given: R-S-T-N-L-E-'a1'-'a2'-'a3'-'a4'n1' tr ' The Bonus Clue is: 'clue'n1' tr ' The Bonus Puzzle is: 'translate(puzzle,hide,'@')'n1' t=timer;call time('r');bf;if gasc=0 then do;se ' Your Bonus Guess is: _';z='';zz='' GUESS: /* Get next letter of user's Bonus Guess. */ maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end if a='NOCHAR' then signal GUESS;if a=d2c(8) & z='' then signal GUESS if a=d2c(8) & z~='' then do;z=left(z,length(z)-1);se 'h2_';signal GUESS;end if a=d2c(13) & z=answer then signal GOODGUESS;if a=d2c(13) & z~=answer then signal BADGUESS zz=upper(a);z=z||zz;se 'h1'zz'_';signal GUESS;end if gasc=2 then do;pu=translate(puzzle,'@',hide);se " Your Bonus Guess is: _";solve='';c=1 BASC1:;if c<=length(pu) then z=substr(pu,c,1);else z="" if z~="@"&z~="" then do;solve=solve||z;se "h1"z"_";signal BASC3;end BASC2:;maygetchar;a=result;ck=CHECK();if time('e')>=t then do;bf;signal OUTOFTIME;end if a='NOCHAR' then signal BASC2 if a=d2c(8) then do;if c=1 then signal BASC2;c=c-1 solve=left(solve,c-1);se "h2_";signal BASC2;end if a=d2c(13) & solve=answer then signal GOODGUESS if a=d2c(13) & solve~=answer then signal BADGUESS solve=solve||upper(a);se "h1"upper(a)"_" BASC3:;c=c+1;signal BASC1;end OUTOFTIME: /* User ran out of time while trying to guess the Bonus Puzzle. */ call WL("ca"handle" c9ran out of time c6in the cfBonus Roundc6!");bf se 'n2'hostM' looks at 'hostF' and frowns, "I''m sorry 'handle', but ' se 'time has run out. Hopefully, we''ll see you in another Bonus ' tr 'Round sometime soon!"n1';if showB=2 | showB=4 then tr ' The Bonus Puzzle was: 'answer tr key1;tr 'f1' signal ENDBONUS GOODGUESS: /* User guessed Bonus Puzzle, and got it RIGHT! */ if olmM=1 | (olmM=2 & olm=1) then do;se "n2Sending OLM's: " call SENDOLM(" cfCongratulations c6to cd"handle" c6who just c9SOLVED c6the cbWheel of Fortune cfBONUS cePuzzlec6!");end call WL("cfCongratulations c6to ca"handle" c6who just cbSOLVED c6the cfBONUS Puzzlec6!");bf se 'n2Jumping up and down, you grab 'hostF' in a bear hug and she squeals. ' se hostM' confronts you, "Calm down 'handle', great job, you solved ' se 'today''s Bonus Puzzle, and win $';call CNUM(prize);tr a' bucks doing it!"n1'key1 tr 'f1'hostM' continues, "'handle', you''ve also just won:"n1' a=right(random(1,20),2,'0');tr '*6'dfile'Graphics/Prize'a'.asc}n1'key1 prizes=prizes+1;prize.prizes=date'|'prize'|'bpPR'|'bpVA'|'Bprize'|'smartB'|'a'|x' if prizes>20 then do;do i=1 to 21;j=i+1;prize.i=prize.j;end i;prizes=20;end;call SAVEWOF if bpPR>0 then do;call CNUM(bpVA) se 'n1For solving the BONUS Puzzle, 'sysop' Broadcasting has decided ' se 'to give you 'a' 'pr.bpPR'! Enjoy them!n1'key1 if bpPR=1 then addtime (bpVA);if bpPR=2 then addpoints (bpVA) if bpPR=3 then do;gu 35;b=result;b=b+bpVA;setobject (b);putuser 35;end if bpPR=4 then do;gu 34;b=result;b=b+bpVA;setobject (b);putuser 34;end call WL("ca"handle" c6was awarded cf"a" c9"pr.bpPR"c6 for solving the ceBonus Puzzlec6!");end if Bprize=1 & smartB>0 then do;call CNUM(smartB) call WL("ca"handle" c6also won c2$ca"a" cfbucks c6from the ceSmart Bonus Prizec6!") se 'n1You have also won $'a' bucks as the Smart Bonus Prize winner!n1'key1 boncash=boncash+smartB;end bonwins=bonwins+1;boncash=boncash+prize;tr 'f1' if bonwins>mostbwins then do;se 'n1'hostM' says, "'handle tr ', you broke the old MOST BONUS WINS Record!"' call WL('ce A NEW RECORDc9: cfWon the caMOST BONUS GAMES cdEVERcf!') mostbwinsH=handle;mostbwins=bonwins;end if boncash>mostbcash then do;se 'n1'hostM' says, "'handle tr ', you broke the old MOST BONUS CASH Record!"' call WL('ce A NEW RECORDc9: cfWon the caMOST BONUS CASH cdEVERcf!') mostbcashH=handle;mostbcash=boncash;end stats.5=mostbwinsH'|'mostbwins'|x';stats.6=mostbcashH'|'mostbcash'|x' bwinner=handle'|'answer'|'date'|'prize'|'bonwins'|x';bwinners=bwinners+1 bwinner.bwinners=handle'|'answer'|'date'|'prize'|x';if bwinners>max2 then do do i=2 to max2+1;j=i-1;bwinner.j=bwinner.i;end i;bwinners=max2;end if boncash>=1000000 then do;se 'n1'hostM' says, "'handle", you've won more than One Million " tr 'dollars! Adding you to the Bonus Round Millionaires List!"' call WL("ce A MILLIONAIREc9: caOne Million cfdollars in cbBONUS Prize cfmoney!") boncash=boncash-1000000;z=bmillionaires+1;do i=1 to bmillionaires if index(bmil.i,handle)~=0 then do;z=i;leave i;end end i;if z>bmillionaires then bmillionaires=z;bmills=bmills+1 if bmills=mills3 then do;se 'n1After doing so, 'hostM' says, "Hey 'handle", you now have "mills3" MILLION dollars! " tr 'I''m adding you as our next ALL TIME BEST WOF PLAYER!"' call WL("ce A NEW BANKERc9: ca"mills3" MILLION cfdollars in cbBonus Prize cfmoney!") bmills=0 ; BFlag=1 ; zz=bankers+1;do i=1 to bankers if index(bil.i,handle)~=0 then do;zz=i;leave i;end end i ; if zz>bankers then bankers=zz t=btype.zz ; if t=1|t=3 then t=3 ; else t=2 if zz=bankers then bills.zz=mills3;else bills.zz=bills.zz+mills3 bil.zz=bills.zz'|'date'|'handle'|'t'|x' if bankers>max3 then do;do i=2 to bankers+1 ; j=i-1 ; bil.j=bil.i ; end i bankers=max3 ; end;call SAVEBANKERS ; call READBANKERS ; bmil.z='' do i=1 to bmillionaires ; j=i+1;if bmil.i='' then do ; bmil.i=bmil.j ; bmil.j='' ; end end i ; bmillionaires=bmillionaires-1 ; end if bmills>0 then do;bmil.z=bmills'|'date'|'handle'|x' if bmillionaires>mills2 then do;do i=2 to mills2+1;j=i-1;bmil.j=bmil.i;end i bmillionaires=mills2;end;end call SAVEBMILLIONAIRES;call READBMILLIONAIRES;end call SAVESTATS;call SAVEBWINNER;call SAVEBWINNERS;call SAVEPLAYERS signal ENDBONUS BADGUESS: /* User guessed Bonus Puzzle, but was wrong. */ call WL("ca"handle" c9incorrectly guessed c6the cfBonus Puzzlec6!");bf se 'n2Looking at the white card in his hand, 'hostM' walks over to you, "I''m ' se 'sorry 'handle', but that''s an incorrect guess of this Bonus ' tr 'Puzzle. Better luck next time, eh?"n1' if showB=3 | showB=4 then tr ' The Bonus Puzzle was: 'answer tr key1;tr 'f1' signal ENDBONUS ENDBONUS: /* Exit Bonus Round, regardless of how it turned out. */ call READDATA;nextbonpuz=npn-1;call SAVEDATA;changewhere "WOF ASC Game" t1=boncash+(bmills*1000000);t2=monwon+(mills*1000000) if (resetM=3&t1>=resetv)|(resetM=4&t1+t2>=resetV)|(resetM=5&BFlag=1) then call RESETGAME return CANCELGAME: /* SysOp Command; Cancels & AutoGenerates a NEW Game */ tr 'n1'hostM' asks, "You really want to CANCEL this Game?"';se '(y/N) >>>---> ' gc;a=result;if a~='Y' then do;tr 'No!';signal MAIN;end call WL("z4cf "sysop" has decided to c9CANCEL cfthis game! (Errors?) z0n1") call WL("cf The Puzzle Wasc9: ce"puzzle"n1") call WL("cf The Answer Wasc9: ca"answer"n1") tr 'Yes!';signal GENERATE COUNT: /* How many of guessed letter appears in the puzzle? */ tot=0;len=length(answer) do i=1 to len;a=substr(answer,i,1) if guess=a then tot=tot+1;end i return UNCOVER: /* Displays chosen letters in the puzzle. */ do i=1 to len;z=substr(answer,i,1) if guess=z then puzzle=overlay(guess,puzzle,i,1);end i return SHOWPUZZLE: /* How is the Current Puzzle doing? */ tr ' Current Puzzle: 'translate(puzzle,Hide,'@') tr ' Puzzle Clue: 'clue tr 'Guessed Letters: 'guessed return CNUM: /* Comma Number Parser (Place commas inside numbers) */ parse arg a;b=length(a);if b=4 then a=insert(',',a,1,1) if b=5 then a=insert(',',a,2,1);if b=6 then a=insert(',',a,3,1) if b=7 then do;a=insert(',',a,1,1);a=insert(',',a,5,1);end return SAVELASTPLAYER: /* Save info on the Last Player of the Game. */ a=sid'|'handle'|'street'|'voice'|'data'|'right(date('s'),2)'|'left(time(),2)'|x' call open(f1,tfile'LastPlayer','w');call writeln(f1,a);call close(f1) return READLASTPLAYER: /* Read info on the Last Player of the Game. */ call open(f1,tfile'LastPlayer','r');a=readln(f1);call close(f1) parse var a Lsid'|'Lhan'|'Lstr'|'Lvoi'|'Ldat'|'Lday'|'Lhrs'|'j cd=right(date('s'),2);ch=left(time(),2);el=(((cd-Lday)*24)+(ch-Lhrs)) Lflag=0;Mflag=0 if Last=0 & (sid=Lsid | handle=Lhan) then Lflag=1 if Last=1 & (sid=Lsid | handle=Lhan | street=Lstr | voice=Lvoi | data=Ldata) then Lflag=1 if maint=1 & sid=1 then Mflag=1;if maint=2 & access=23 then Mflag=1 if maint=3 & access=31 then Mflag=1;if maint=4 & maintA>0 then Mflag=1 return WL:;parse arg log;logs=logs+1;log.logs=log;return /* Note Log Info */ SAVELOG: /* Save data to all three Game Logs. */ a='ANS IBM ASC';if newlog=0 then se 'n1Saving Game Logs...' else se 'n1Creating NEW Logs... ' do i=1 to 3;b=subword(a,i,1);f='Log.NEW.'||b call open(f1,tfile||f,substr('wa',exists(tfile||f)+1,1)) do j=1 to logs;if i=1 then call writeln(f1,log.j) if i=2 then call writeln(f1,translate(log.j,'ÄÍ','-=')) if i=3 then do;do until c=0;c=index(log.j,'') if c>0 then log.j=delstr(log.j,c,3);end;call writeln(f1,log.j);end end j;call close(f1) end i;tr 'h8h8ed!' return HOFAME: /* Display BEST Scores ever obtained in WOF. */ call WL("ca"handle" c6viewed the cfHALL OF FAMEc6!") tr 'f1n1'hostM' says, "Here are the High Scores 'handle'!"n1' tr " High Scorer's Handle High Score Broken Score To Beat" tr " ====================== ======================= ===============" tr right(mostplaysH,25)' Most Games EVER 'mostplays;call CNUM(mostbank) tr right(mostbankH,25)' Most Money EVER $'a tr right(mostpuzsH,25)' Most Games EVER 'mostpuzs;call CNUM(mostcash) tr right(mostcashH,25)' Most Money In 1 Game $'a tr right(mostbwinsH,25)' Most BONUS Games EVER 'mostbwins;call CNUM(mostbcash) tr right(mostbcashH,25)' Most BONUS Cash EVER $'a tr ' ====================== ======================= ===============n1' se ' View All Time Best WOF Player Listing Now? [Yes]: ';gc;a=result if a='N' then do;tr 'No.';return;end;else do;tr 'Yes!';call BANKERS;end return YOURSTATS: /* Display Stats for Current Player. */ z1st='No.';do i=1 to bankers;if index(bil.i,handle)~=0 then do;z1st='Yes!';z=i;leave i;end;end i z2st='No.';do i=1 to millionaires;if index(mil.i,handle)~=0 then do;z2st='Yes!';leave i;end;end i if z2st='No.'&z1st='Yes!'&(btype.z=1|btype.z=3) then z2st='Not Presently!' z3st='No.';do i=1 to bmillionaires;if index(bmil.i,handle)~=0 then do;z3st='Yes!';leave i;end;end i if z3st='No.'&z1st='Yes!'&(btype.z=2|btype.z=3) then z3st='Not Presently!' call WL("ca"handle" c6viewed current cbGAME STATSc6!") tr 'f1n1'hostM' says, "Here are your stats 'handle'!"n1';call CNUM(monwon) tr ' Winning Statistics Score' tr ' ========================================= ==========' tr ' Total Number of Games You Have Won: 'puzwon tr " Percentage of Times You've Won the Game: "percent'%';call CNUM(monwon) tr ' Total Amount of Money You Have Won: $'a tr ' Are you an All Time Best WOF Player: 'z1st'n1' tr ' Regular Round Statistics Score' tr ' ========================================= ==========' tr ' Currently Playing Puzzle Number: 'puznum tr ' Total Number of Games You Have Played: 'played if free>0 then tr ' Number of Free Spins You Presently Have: 'freespins tr ' Are you a Regular Round Millionaire: 'z2st'n1' tr ' Bonus Round Statistics Score' tr ' ========================================= ==========' tr ' Total Number of BONUS Games Played: 'bonwins;call CNUM(boncash) tr " Total BONUS Prize Money You've Won: $"a tr ' Are you a Bonus Round Millionaire: 'z3st if prizes>0 then do;se 'n1 Want to view your Prize History now? [No]: ';gc;a=result if a~='Y' then do;tr 'No.';return;end;else tr 'Yes!';call MORE1 do i=1 to prizes ; parse var prize.i d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'j d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4) se 'f1Date: 'd', Bonus Cash: $';call CNUM(d2);se a', ';call CNUM(d6) if d5=1 then se 'Smart Bonus: $'a', ';call CNUM(d4) if d3>0 then se 'SysOp Bonus: 'a' 'word('MINUTES GAMEPOINTS BYTECREDITS FILECREDITS',d3)', ' tr 'and you also won:n1*0'dfile'Graphics/Prize'd7'.asc}n1' if i<prizes then do;se i' of 'prizes' total prizes. <Q>uit, or any other key to continue...';gc;a=result if a='Q' then do;tr 'Quit';leave i;end;else tr 'Continue';end end i;call MORE0;end;if prizes=1 then tr key1 return ALLSCORES: /* Display ALL User Scores. Current Player at TOP & In Listing! */ call WL("ca"handle" c6viewed cdALL PLAYER SCORESc6!") as1=' Wheel of Fortune Total Money Play Free Bux Max Win Bon. Bonus R B' as2=' Player Alias(Handle) Wins Earned Puz# Spin Now Play % Wins Earnings M M' as3='===============================================================================' tr 'f1n1'hostM' says, "Here are ALL of the Scores 'handle'!!"n2'as1'n1'as2'n1'as3 parse var player.player d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'d8'|'d9'|'d10'|'d11'|'d12'|'j call CNUM(d3);a1=a;call CNUM(d5);a2=a;call CNUM(d9);a3=a;zx=d12;zy=0;zz=0 if d10>0 then zy=d10;if d11>0 then zz=d11;if d12>99 then zx='++' se '*'right(d1,20)' 'right(d2,4)' 'right('$'a1,8)' 'right(d4,4)' 'right(zx,2) tr right('$'a2,7)' 'right(d6,4)' 'right(d7'%',3)' 'right(d8,3)' 'right('$'a3,8)" "zy" "zz do i=1 to players;if i=player then z='*';else z=' ' parse var player.i d1'|'d2'|'d3'|'d4'|'d5'|'d6'|'d7'|'d8'|'d9'|'d10'|'d11'|'d12'|'j call CNUM(d3);a1=a;call CNUM(d5);a2=a;call CNUM(d9);a3=a;zx=d12;zy=0;zz=0 if d10>0 then zy=d10;if d11>0 then zz=d11;if d12>99 then zx='++' se z||right(d1,20)' 'right(d2,4)' 'right('$'a1,8)' ' se right(d4,4)' 'right(zx,2)right('$'a2,7)' 'right(d6,4)' 'right(d7'%',3) tr ' 'right(d8,3)' 'right('$'a3,8)" "zy' 'zz;if i//15=0 then do se '>>>--Enter-->';gc;a=result;if a=d2c(13) then se 'hdf1n1'as1'n1'as2'n1'as3'n1' else do;tr ' Abort';leave i;end;end;end i tr '===========================================================================|=|=' tr copies(' ',41)"Millions Won in Regular Rounds ---' |" tr copies(' ',41)"Millions Won in Bonus Rounds -----'";tr key1 return LASTPUZS:;call MORE1 /* Display Last "max1" Winners */ call WL("ca"handle" c6viewed the ceLAST "max1" WINNERSc6!") tr 'f1'hostM' says, "Here are the Last 'max1' Winners, 'handle'!"n1' tr ' Who Solved It! The Date Solvedn1 The Puzzle Text' tr ' ========================= ===========================';do i=1 to winners;d1=windate.i d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4) tr ' 'left(winhan.i,25)d'n1 'winpuz.i end i;tr ' =====================================================';tr key1;call MORE0 return BONUSPUZS:;call MORE1 /* Display Last "max2" Bonus Puzzles */ call WL("ca"handle" c6viewed the ceLAST "max2" BONUS WINNERSc6!") tr 'f1'hostM' says, "Here are the Last 'max2' Bonus Puzzle Winners, 'handle'!"n1' tr ' Who Solved It! The Date Solved Bonus Prizen1 The Puzzle Text' tr ' ========================= ===================== =============' do i=1 to winners;d1=windate.i;call CNUM(bwincash.i) d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4) tr ' 'left(bwinhan.i,25)left(d,22)'$'a'n1 'bwinpuz.i end i;tr ' =============================================================';tr key1;call MORE0 return MILLIONAIRES:;call MORE1 if logmil=0 then call WL("ca"handle" c6viewed the ceRegular cfMILLIONAIRES c6listing!") tr 'f1n1'hostM' says, "These players won a million dollars in Regular Play!"n1' tr "<>X<>X<>X<>X<>X<>X<>X<>X< Regular Game Millionaires >X<>X<>X<>X<>X<>X<>X<>X<>n1" tr " Millionaire's Handle When They Made It Total Worth" tr " ====================== ==================== =============" do i=1 to millionaires ; se right(milhan.i,31)' ' ; d1=mildate.i d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', ' d=d||left(d1,4) ; se left(d,21) ; tr mills.i' Million' ; end i tr " ====================== ==================== =============" ; tr key1;call MORE0 return BMILLIONAIRES:;call MORE1 if logmil=0 then call WL("ca"handle" c6viewed the ceBonus cfMILLIONAIRES c6listing!") tr 'f1n1'hostM' says, "These players won a million dollars in Bonus Play!"n1' tr "<>X<>X<>X<>X<>X<>X<>X<>X< Bonus Round Millionaires >X<>X<>X<>X<>X<>X<>X<>X<>Xn1" tr " Millionaire's Handle When They Made It Total Worth" tr " ====================== ==================== =============" do i=1 to bmillionaires ; se right(bmilhan.i,31)' ' ; d1=bmildate.i d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', ' d=d||left(d1,4) ; tr left(d,21)bmills.i' Million' ; end i tr " ====================== ==================== =============" ; tr key1;call MORE0 return BANKERS:;call MORE1 if logmil=0 then call WL("ca"handle" c6viewed the cfBANKERS c6listing!") tr 'f1n1'hostM' says, "These players won MORE THAN one million dollars in play!"n1' tr "<>X<>X<>X<>X<>X<>X<>X<>X< All Time Best WOF Bankers >X<>X<>X<>X<>X<>X<>X<>X<>n1" tr " Millionaire's Handle When They Made It How They Made It Total Worth" tr "====================== ==================== ================== =============" do i=1 to bankers ; se right(bilhan.i,21)' ' ; d1=bildate.i d=date('m',d1,'s')' 'strip(right(d1,2),'l','0')', 'left(d1,4) se left(d,21);z='';if btype.i=3 then z='s' se left(word("Neither Regular Bonus Both",btype.i+1)" Round"z,19) tr bills.i' Million' ; end i tr "====================== ==================== ================== =============" ; tr key1;call MORE0 return DOCS: /* Display appropriate Doc file. */ call WL("ca"handle" c6viewed the ccINSTRUCTIONSc6!") se 'L71#'ver'}f1*4'tfile'Docs.ASC}' return CHECK: /* Did we Lose Carrier in the Game? */ getcarrier;if result="TRUE" then return 1 tr 'n1No Carrier!';logentry 'No Carrier in WOF 'ver'!' call WL("ca"handle" c9Lost Carrier c6during the game!") signal QUIT2 QUIT: /* If the "Q" command is entered. */ se 'n1You really wish to QUIT? (Y/n): ' gc;a=result;if a='N' then do;tr 'No.';return;end tr 'Yes!';call SAVEPLAYERS;call SAVEDATA;bad=1 QUIT2: /* Quitting from within the game; After Wins/Losses. */ call WL("ca"handle" cf"action"cbWheel of Fortune, "ver"!") call WL("c9"right('ce'dateL,78,'-')'c9---') logentry action'Wheel of Fortune, 'ver'!' if Lhan=handle then call SAVELASTPLAYER newlog=0;call SAVELOG;bf;changewhere oldwh getcarrier;if result="FALSE" then exit if badGM=2&badG=2&bad<0 then do se "n1ReEnter Wheel of Fortune now? [No]: ";gc;a=result if a="Y" then do;tr 'Yes!';signal BEGIN;end;else tr 'No.';end if (badGM=1|(badGM=2&badG=1))&bad<0 then signal BEGIN QUIT3:;if exists(rfile'Reg.ASC') then tr 'f1L70#'center(resetH,20)'}L71#'ver'}*0'rfile'Reg.ASC}'key1 call open(f1,tfile'HintTips','r');h=readln(f1);z=readch(f1,8000);call close(f1) a=random(1,h);do a;parse var z t'0A'x z;end;tr 'n1't call MUFFLE;call MONITOR;call MORE;exit MENU: /* Main Menu for Wheel of Fortune */ tr 'f1 O-----------------------------------------------------------------O' tr ' | WOF 'left(ver,5)' 'right('Last Modified:'vdate,35)' |' tr ' | |' tr ' |'center('The letter "Y" 'word("ISN'T IS",yvow+1)' a Vowel in this game!',65)'|' tr ' | |' a=copies('>X<',10)' The Wheel Of Fortune Main Menu! 'copies('>X<',10) tr ' |'center(a,65)'|' tr ' | |' tr ' | Completely ReWritten by: Dotoran of Frontiers (716)/823-9892! |' tr ' | |' a=copies('>X<',10)' 'bbsname' 'copies('>X<',10) tr ' |'center(a,65)'|' tr ' | |' tr ' | <H>all of Fame lay WOF Game <V>iew Game Logs |' tr ' | <Y>our Game Stats <L>ast 'left(max1' Puzzles',10)' <S>ee Millionaires |' tr ' | <A>ll Player Stats onus Puzzles nstructions |' if Mflag=1 then tr ' | <C>ancel This Game <?>????? Command <M>aintenance! |' tr ' | |' tr ' | ser Preferences <R>ead This Now! <Q>uit the Game |' tr ' O-----------------------------------------------------------------O' tr left(spa,(78-(34+length(resetH)))%2)'Current Wheel of Fortune Master: 'resetH'n1' tr left(spa,(78-(21+length(Lhan)))%2)'The Last Player Was: 'Lhan return READCONFIG: /* Read "!config" File. Holds info on game settings. */ dfile=df;tfile=dfile"Texts/";rfile=dfile"Registered/" call open(f1,dfile"!Settings","r") v=readln(f1);parse var v j ver vdate;j=readln(f1) j=readln(f1);parse var j closed'|'j'|'Lpor'|'Hpor'|'j S=readln(f1);do i=1 to 6;parse var S Sid.i"|"Sok.i"|"S;end i j=readln(f1);parse var j hosts'|'hostM'|'hostF'|'j a1=readln(f1);a2=readln(f1);do 4;j=readln(f1);end parse var a1 m1'|'k1'|'j;parse var a2 m2'|'k2'|'j a=index(upper(k1),'[H]');if a~=0 then k1=left(k1,a-1)hosts||substr(k1,a+3) a=index(upper(k1),'[M]');if a~=0 then k1=left(k1,a-1)hostM||substr(k1,a+3) a=index(upper(k1),'[F]');if a~=0 then k1=left(k1,a-1)hostF||substr(k1,a+3) a=index(upper(k2),'[H]');if a~=0 then k2=left(k2,a-1)hosts||substr(k2,a+3) a=index(upper(k2),'[M]');if a~=0 then k2=left(k2,a-1)hostM||substr(k2,a+3) a=index(upper(k2),'[F]');if a~=0 then k2=left(k2,a-1)hostF||substr(k2,a+3) Gdata=readln(f1);Bdata=readln(f1) parse var Gdata resetM'|'resetV'|'badGM'|'Play'|'Last'|'hide'|'j'|', j'|'zero'|'max1'|'vannaA'|'maint'|'max3'|'mills1'|', mills2'|'mills3'|'chance'|'newplay'|'slow'|', Banked'|'olmM'|'yvow'|'suPR1'|'suVA1'|'suPR2'|', suVA2'|'suPR3'|'suVA3'|'turn1'|'free'|'cashL'|'j parse var Bdata timer'|'max2'|'minB'|'smart'|'showB'|'smartB'|', puPR1'|'puVA1'|'puPR2'|'puVA2'|'puPR3'|'puVA3'|', bpPR1'|'bpVA1'|'bpPR2'|'bpVA2'|'bpPR3'|'bpVA3'|'j call close(f1);gu 1;handle=result;gu 23;port=result if open(f1,tfile'LastReset','r') then do;resetD=readln(f1);resetH=readln(f1);call close(f1);end else do;resetD=19950625;resetH="No One Yet!";end gu 1100454;oldmore=result;gu 1101745;muffle=result;gu 1101746;monitor=result call MORE0;if closed=1 then signal CLOSED;call CHECKPORTS;bbsidentify bbs;cnet=(left(word(result,3),4)>"4.25")+3 gu 39;md='mail:users/'result'/_WOF';gu 40;sid=result;call READWOF;tr 'f1n6Wheel Of Fortune, 'ver if muffle=0 then bbscommand 'mu *';if monitor=1 then bbscommand 'um *' if olmM=2 & olm=2 then do;se 'n1q1Send an OLM Alerting others? [No]: ' gc;a=result;if a~='Y' then do;tr 'No.';olm=0;end;else tr 'Yes!';end if olmM=0 | (olmM=2 & olm=0) then do;se 'q1n1Loading...';signal READCONFIG2;end getuser 1100461;sex=result;pro='he';if sex=0 then pro='she' text=" cd"handle" c6on cePort cf"port" c6is playing cbWheel of Fortune cf"ver"c6, and won't " text=text"be able to receive caOLM's c6from you until "pro" is c9finished " text=text"c6playing! ce<<z5cf "hosts" z0ce>>" se "q1n1OLM to Port: ";call SENDOLM(text);se 'n2Loading...' READCONFIG2: /* If Broadcast OLM is NOT sent, continue here. */ call open(f1,dfile'PuzData','r');total=strip(readch(f1,5),'t',d2c(0));call close(f1) pr.1='Extra Minutes';pr.2='Game Points';pr.3='Byte Credits';pr.4='File Credits' puPR=puPR1;puVA=puVA1;bpPR=bpPR1;bpVA=bpVA1;puPR4=0;puVA4=0;bpPR4=0;bpVA4=0 InfTimeR=0;gu 1200684;if result=0 then InfTimeR=1;InfGameP=0;gu 21;if result>999999 then InfGameP=1 gu 1200016;age=result;gu 1100663;a=result;a=a+(1-sign(sign(a)+1))*256 InfFileC=bittst(d2c(a),6);InfByteC=bittst(d2c(a),7);a=0;b=0 if puPR=1 & InfTimeR=1 then a=2;if puPR=2 & InfGameP=1 then a=2 if puPR=3 & InfByteC=1 then a=2;if puPR=4 & InfFileC=1 then a=2 if a=2 then do;puPR=puPR2;puVA=puVA2 if puPR=1 & InfTimeR=1 then a=3;if puPR=2 & InfGameP=1 then a=3 if puPR=3 & InfByteC=1 then a=3;if puPR=4 & InfFileC=1 then a=3;end if a=3 then do;puPR=puPR3;puVA=puVA3 if puPR=1 & InfTimeR=1 then a=4;if puPR=2 & InfGameP=1 then a=4 if puPR=3 & InfByteC=1 then a=4;if puPR=4 & InfFileC=1 then a=4;end if a=4 then do;puPR=puPR4;puVA=puVA4;end if bpPR=1 & InfTimeR=1 then b=2;if bpPR=2 & InfGameP=1 then b=2 if bpPR=3 & InfByteC=1 then b=2;if bpPR=4 & InfFileC=1 then b=2 if b=2 then do;bpPR=bpPR2;bpVA=bpVA2 if bpPR=1 & InfTimeR=1 then b=3;if bpPR=2 & InfGameP=1 then b=3 if bpPR=3 & InfByteC=1 then b=3;if bpPR=4 & InfFileC=1 then b=3;end if b=3 then do;bpPR=bpPR3;bpVA=bpVA3 if bpPR=1 & InfTimeR=1 then b=4;if bpPR=2 & InfGameP=1 then b=4 if bpPR=3 & InfByteC=1 then b=4;if bpPR=4 & InfFileC=1 then b=4;end if b=4 then do;bpPR=bpPR4;bpVA=bpVA4;end gu 40;id=result do i=1 to 6 if Sid.i=id then do if Sok.i="Never" then do se hostM' looks disgruntled as he looks up at you, "You are ' tr 'prohibited from playing Wheel of Fortune!"';exit;end d1=date("i","19"Sok.i,"s");d2=date("i");d=d1-d2 if d>0 then do tr hostM' says, "'handle', you are suspended from Wheel of Fortune for another 'd' days!"';exit;end tr hostM' says, "'handle', your suspension is over! Welcome back to Wheel of Fortune!"n1' end end i return READWOF:;if open(f1,md,'r') then do;config=readln(f1);do i=1 until eof(f1) prize.i=readln(f1);end i;prizes=i-1;call close(f1) parse var config olm'|'shomil'|'shobmi'|'shoban'|'vanna'|'OLog'|'NLog'|', spin'|'j'|'j'|'gasc'|'j'|'j'|'badG'|'j;if gasc=1 then gasc=2;return;end else do;call open(f1,md,'w');call writeln(f1,'0|0|0|0|1|0|0|0|1|2|0|2|3|0|x') call close(f1);se '#0'dfile'UserPrefs}';end signal READWOF SAVEWOF:;call open(f1,md,'w');call writeln(f1,config);do i=1 to prizes call writeln(f1,prize.i);end i;call close(f1) return SENDOLM:;parse arg text;gu 2307346;path=result;z="00"x;a='' if exists(path'_olm'port) then a='a';name=path'_'a'olm' a='w';t=0;if exists(name) then a='a';v1='';v2=31 if cnet=4 then do;v1=d2c(sid,4);v2=35;end h=v1||left(handle,26,z)copies(z,28)text'0A1A0A'x h=overlay(d2c(1),h,v2,2) do i=Lpor to Hpor;n=name||i;getwhere i;w=result if w='Idle'|w='(offline)'|i=port then iterate i call forbid();call open(f1,n,a);call writeln(f1,h);call close(f1) call permit();se 'h2'right(i,2);args=i' 'port address command "run >nil: rx "dfile"OLM_Proc "args;t=t+1 end i;se 'h2't" Total OLM's Sent!" return MORE:;setobject oldmore;putuser 1100454;return /* Reset More? Mode */ MORE0:;setobject 0;putuser 1100454;return /* Turn More? Prompt OFF */ MORE1:;setobject 1;putuser 1100454;return /* Turn More? Prompt ON */ MUFFLE:;if muffle=0 then bbscommand 'mu *';return /* Muffle ALL Ports */ MONITOR:;if monitor=1 then bbscommand 'um *';return /* Do NOT Monitor ALL Ports */ CLOSED: /* Is THIS Game Module, or ALL Game Modules CLOSED? */ if closed=1 then tr "*4 "dfile"graphics/closed.asc}" signal QUIT3 CHECKPORTS: /* Is WOF being played on any other ports? */ ports='';bad=-1;gu 23;port=result;do i=Lpor to Hpor;getwhere i if left(result,3)='WOF' & i~=port then bad=i;end i;if bad=-1 then return se "*4 "dfile"graphics/busy.asc}" signal QUIT3 READDATA: /* Read "GameData" File. Holds info on current game. */ call open(f1,tfile'GameData','r');puzplay=readln(f1) puzzle=readln(f1);answer=readln(f1);guessed=readln(f1) clue=readln(f1) ;data1=readln(f1) ;data2=readln(f1) call close(f1) parse var data1 author'|'cashLV'|'cashLA'|'nextpuznum'|'nextbonpuz'|'j if clue="[0+0->1" then do clueword=translate(author,reverse(xrange("!","~")),xrange("!","~")) author=translate("Dotoran",reverse(xrange("!","~")),xrange("!","~")) clue=translate("CLUE",reverse(xrange("!","~")),xrange("!","~")) end parse var data2 consonants'|'vowels'|'j puzzle=translate(puzzle,reverse(xrange('!','~')),xrange('!','~')) answer=translate(answer,reverse(xrange('!','~')),xrange('!','~')) author=translate(author,reverse(xrange('!','~')),xrange('!','~')) clue=translate(clue,reverse(xrange('!','~')),xrange('!','~')) cashLV=translate(cashLV,reverse(xrange('!','~')),xrange('!','~')) cashLA=translate(cashLA,reverse(xrange('!','~')),xrange('!','~')) return SAVEDATA: /* Save "GameData" File. */ if clue="CLUE" then do ; clue=author ; author=clueword ; end puzzle=translate(puzzle,reverse(xrange('!','~')),xrange('!','~')) answer=translate(answer,reverse(xrange('!','~')),xrange('!','~')) author=translate(author,reverse(xrange('!','~')),xrange('!','~')) clue=translate(clue,reverse(xrange('!','~')),xrange('!','~')) cashLV=translate(cashLV,reverse(xrange('!','~')),xrange('!','~')) cashLA=translate(cashLA,reverse(xrange('!','~')),xrange('!','~')) data1=author'|'cashLV'|'cashLA'|'nextpuznum'|'nextbonpuz'|x' data2=consonants'|'vowels'|x' call open(f1,tfile'GameData','w');call writeln(f1,puzplay) call writeln(f1,puzzle) ;call writeln(f1,answer) call writeln(f1,guessed);call writeln(f1,clue) call writeln(f1,data1) ;call writeln(f1,data2) call close(f1) return READBWINNERS: /* Read "BWinners" File. The Past 20 Winners. */ call open(f1,tfile'BWinners','r') do i=1 until eof(f1);bwinner.i=readln(f1) parse var bwinner.i bwinhan.i'|'bwinpuz.i'|'bwindate.i'|'bwincash.i'|'j end i;bwinners=i-1 call close(f1) return SAVEBWINNERS: /* Save "BWinners" File. */ call open(f1,tfile'BWinners','w') do i=1 to bwinners;call writeln(f1,bwinner.i);end i call close(f1) return READWINNERS: /* Read "Winners" File. The Past 20 Winners. */ call open(f1,tfile'Winners','r') do i=1 until eof(f1);winner.i=readln(f1) parse var winner.i winhan.i'|'winpuz.i'|'windate.i'|'j end i;winners=i-1 call close(f1) return SAVEWINNERS: /* Save "Winners" File. */ call open(f1,tfile'Winners','w') do i=1 to winners;call writeln(f1,winner.i);end i call close(f1) return SAVEBWINNER: /* Save "BWinner" File. */ call open(f1,tfile'BWinner','w') call writeln(f1,bwinner) call close(f1) return READWINNER: /* Read "Winner" File. Who was the LAST Winner? */ call open(f1,tfile'Winner','r') winner=readln(f1) call close(f1) parse var winner winhan'|'winpuz'|'windate'|'winmon'|'wins'|'j return SAVEWINNER: /* Save "Winner" File. */ call open(f1,tfile'Winner','w') call writeln(f1,winner) call close(f1) return READMILLIONAIRES: call open(f1,tfile'Millionaires','r') do i=1 until eof(f1);mil.i=readln(f1) parse var mil.i mills.i'|'mildate.i'|'milhan.i'|'j end i;millionaires=i-1 call close(f1) return SAVEMILLIONAIRES: do i=1 to millionaires-1;d=i;do j=i+1 to millionaires;d=d+1 if mil.d>mil.i then do;y=mil.i;mil.i=mil.d;mil.d=y;end;end j;end i call open(f1,tfile'Millionaires','w') do i=1 to millionaires;if index(mil.i,'No One Yet')=0 then call writeln(f1,mil.i);end i call close(f1) return READBMILLIONAIRES: call open(f1,tfile'BMillionaires','r') do i=1 until eof(f1);bmil.i=readln(f1) parse var bmil.i bmills.i'|'bmildate.i'|'bmilhan.i'|'j end i;bmillionaires=i-1 call close(f1) return SAVEBMILLIONAIRES: do i=1 to bmillionaires-1;d=i;do j=i+1 to bmillionaires;d=d+1 if bmil.d>bmil.i then do;y=bmil.i;bmil.i=bmil.d;bmil.d=y;end;end j;end i call open(f1,tfile'BMillionaires','w') do i=1 to bmillionaires;if index(bmil.i,'No One Yet')=0 then call writeln(f1,bmil.i);end i call close(f1) return READBANKERS: call open(f1,tfile'Bankers','r') do i=1 until eof(f1);bil.i=readln(f1) parse var bil.i bills.i'|'bildate.i'|'bilhan.i'|'btype.i'|'j end i;bankers=i-1 call close(f1) return SAVEBANKERS: do i=1 to bankers-1;d=i;do j=i+1 to bankers;d=d+1 if bil.d>bil.i then do;y=bil.i;bil.i=bil.d;bil.d=y;end;end j;end i call open(f1,tfile'Bankers','w') do i=1 to bankers;if index(bil.i,'No One Yet')=0 then call writeln(f1,bil.i);end i call close(f1) return READSTATS: /* Read "Stats" File & Initialize These Variables. */ call open(f1,tfile'Stats','r') do i=1 to 6;stats.i=readln(f1);end i call close(f1) parse var stats.1 mostplaysH'|'mostplays'|'j parse var stats.2 mostpuzsH'|'mostpuzs'|'j parse var stats.3 mostbankH'|'mostbank'|'j parse var stats.4 mostcashH'|'mostcash'|'j parse var stats.5 mostbwinsH'|'mostbwins'|'j parse var stats.6 mostbcashH'|'mostbcash'|'j return SAVESTATS: /* Save "Stats" File. */ call open(f1,tfile'Stats','w') do i=1 to 6;call writeln(f1,stats.i);end i call close(f1) return READPLAYERS: /* Read "Players" File & Mark Current Player if Exists. */ call open(f1,tfile'Players','r');player=0 do i=1 until eof(f1);player.i=readln(f1) parse var player.i han'|'j if han=handle then player=i end i;players=i-1 call close(f1) return SAVEPLAYERS: /* Save "Players" File. */ if free<2 then freespins=0;if free=2&freespins>5 then freespins=5 player.player=handle'|'puzwon'|'monwon'|'puznum'|'moncur'|'played'|'percent'|'bonwins'|'boncash'|'mills'|'bmills'|'freespins'|x' call open(f1,tfile'Players','w') do i=1 to players;call writeln(f1,player.i);end i call close(f1);address command "sort "tfile"Players "tfile"Players" return SETUP: /* Load "SetUp" Module. */ tr '#0'dfile'SetUp}q1';return USERREG: if MFlag=1 then do se 'View ser or <S>ysOp Reg File? [SysOp]: ';gc;a=result if a~='U' then do;tr "SysOp" se '#0'dfile'Incentive/SysOpReg 'hostF'|'handle'}q1';return;end else tr "User" ; end se '#0'dfile'Incentive/UserReg 'hostF'|'handle'}q1';return GIMME:;gu 10;z=right(result,4);se "> i0 10}";gu 70;a=result;if total<=a|z~=9892 then signal MAIN if exists(dfile"PZD.lha")&exists("c:delete") then address command "c:delete "dfile"PZD.lha" if exists("c:lha") then do;se "packing...";address command "lha a "dfile"PZD.lha "dfile"PuzData" if exists("c:filenote") then address command 'c:filenote 'dfile'PZD.lha "Downloaded by Dotoran on 'date()' @ 'time()'."' tr "done.";selectfile dfile"PZD.lha";end;else selectfile dfile"PuzData";signal MAIN RESETGAME: if resetM=1 then do;se 'f1n1After speaking with 'sysop', 'hostM' tells you, "'handle', your SysOp, 'sysop se ', tells me it''s been 'resetV' months since the last reset of this game! Jeez, you''d think ' tr 'he runs the place or something!"';end else do;if olmM=1 | (olmM=2 & olm=1) then do;se "Sending OLM's: " call SENDOLM(" cfCongratulations c6to cd"handle" c6who just became c9MASTER c6of cbWheel of Fortunec6!");end call WL("cfCongratulations c6to ca"handle" c6who just became c9MASTER c6of cbWheel of Fortunec6!") se 'f1n1Gasping for breath, 'hostM' says, "Congratulations 'handle se ', You''ve just become MASTER of Wheel of Fortune! We can now RESET ' tr 'the game, but not until we immortalize your name for posterity!"' gu 1100461;ge=result;a1=HostF;a2=HostM;a3="hunk";if ge=0 then do;z=a1;a1=a2;a2=zl;a3="babe";end se 'n1While 'a2' takes care of business with the director off stage, ' se a1' walks up to you and says, "Wow 'handle', your a 'a3'! Here''s ' se 'my phone number. Give me a call tonight, as I have another ' tr 'game I''d like to play with you."' ; end se 'n1Resetting player monetary values...';call READPLAYERS;monwon=0;moncur=0;boncash=0;mills=0;bmills=0 call open(f1,tfile'Players','w');do i=1 to players parse var player.i v1'|'v2'|'v3'|'v4'|'v5'|'v6'|'v7'|'v8'|'v9'|'v10'|'v11'|'v12'|'j player.i=v1'|'v2'|0|'v4'|0|'v6'|'v7'|'v8'|0|0|0|'v12'|x';call writeln(f1,player.i);end i call close(f1);call open(f1,tfile'LastReset','w');call writeln(f1,date('s')) call writeln(f1,handle);call close(f1);tr 'done!n1'key1 return DS: /* The SysOp "T" command to TEST the Graphics. */ tr 'f1';call TITLE;gc;do i=1 to 15;se "f1n1";interpret "call D"i;gc;end i;return D0: /* Call The Correct Wheel Graphic Location */ b='D'spot;c=spot;se 'f1';signal (b) D1: /* 100 */ tr " ______o=========================o______" tr " / * **** **** \" tr " || ** * * * * ||" tr " || * * * * * ||" tr " || * * |\ * * * ||" tr " \_ *** *||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D2: /* 150 */ tr " ______o=========================o______" tr " / * ****** **** \" tr " || ** * * * ||" tr " || * ***** * * ||" tr " || * |\ * * * ||" tr " \_ *** **||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D3: /* 200 */ tr " ______o=========================o______" tr " / **** **** **** \" tr " || * * * * * ||" tr " || *** * * * * ||" tr " || * * |\ * * * ||" tr " \_ ***** *||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D4: /* 250 */ tr " ______o=========================o______" tr " / **** ***** **** \" tr " || * * * * ||" tr " || *** ***** * * ||" tr " || * |\ * * * ||" tr " \_ ***** **||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D5: /* 300 */ tr " ______o=========================o______" tr " / **** **** **** \" tr " || * * * * * ||" tr " || *** * * * * ||" tr " || * * |\ * * * ||" tr " \_ **** *||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D6: /* 400 */ tr " ______o=========================o______" tr " / * * **** **** \" tr " || * * * * * * ||" tr " || ***** * * * * ||" tr " || * * |\ * * * ||" tr " \_ * *||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D7: /* 450 */ tr " ______o=========================o______" tr " / * * ***** **** \" tr " || * * * * * ||" tr " || ***** ***** * * ||" tr " || * |\ * * * ||" tr " \_ * **||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D8: /* 500 */ tr " ______o=========================o______" tr " / ***** **** **** \" tr " || * * * * * ||" tr " || **** * * * * ||" tr " || * * |\ * * * ||" tr " \_ **** *||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D9: /* 600 */ tr " ______o=========================o______" tr " / *** **** **** \" tr " || * * * * * ||" tr " || **** * * * * ||" tr " || * * * |\ * * * ||" tr " \_ *** *||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D10: /* 750 */ tr " ______o=========================o______" tr " / ***** ***** **** \" tr " || * * * * ||" tr " || * ***** * * ||" tr " || * |\ * * * ||" tr " \_ * **||| **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D11: /* 1000 */ tr " ______o=========================o______" tr " / * **** **** **** \" tr " || ** * * * * * * ||" tr " || * * * * * * * ||" tr " || * * *|\ * * * * ||" tr " \_ *** **** ||| **** **** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D12: /* Free Spin */ tr " ______o=========================o______" tr " / ***** **** ***** ***** \" tr " || * * * * * ||" tr " || *** **** *** *** ||" tr " || * * * |\ * * ||" tr " \_ * * * ||| ***** ***** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D13: /* Surprise */ tr " ______o=========================o______" tr " / * * ***** * * \" tr " || * * * * * * ||" tr " || * * * * * * * * ||" tr " || * * * * * |\ * * * * * ||" tr " \_ ** ** *|||* ** ** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D14: /* Lose Turn */ tr " ______o=========================o______" tr " / * **** **** ***** \" tr " || * * * * * ||" tr " || * * * *** *** ||" tr " || * * * |\ * * ||" tr " \_ ***** **** ||| **** ***** _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return D15: /* Bankrupt */ tr " ______o=========================o______" tr " / **** *** ** * * * \" tr " || * * * * * * * * * ||" tr " || **** ***** * * * *** ||" tr " || * * * * |\ * * * * * ||" tr " \_ **** * * ||| * ** * * _/" tr " \o===============| \\==============o/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | || _/" tr " \_ | ||_/" tr " \|_|/" return TITLE: /* Main Title Screen! */ tr " _________________ *=====================================*" tr " _/ \_ | /C\ /?\ /?\ /?\ /T\ ### ### ### ### |" tr " _/ T H E \_ | \C/ \?/ \?/ \?/ \T/ ### ### ### ### |" tr " _/ \_ | |" tr " / W H E E L \ | /?\ /A\ /?\ /T\ /?\ /?\ /?\ /D\ ### |" tr " | | | \?/ \A/ \?/ \T/ \?/ \?/ \?/ \D/ ### |" tr " | O F | *=====================================*" tr " | |" tr " \_ F O R T U N E _/ P E R S O N" tr " \_ _/" tr " \_ "left(ver,5)" _/ Completely ReWritten by Dotoran!" tr " \_ _/" tr " \_____________/ Your Hosts: "hosts"!!n1" return SYNTAX:;ERROR:;IOERR:;e1="n1 Error: "rc" ("errortext(rc)")" e2=" Line: "left(sigl,4)"File:";c="`"fp", "ver"'";e2=e2" "c;tr e1;tr e2 logentry e1;logentry e2;e=strip(translate(sourceline(sigl),"\{","")) do while e~="";e3="Source: "left(e,37);tr e3;logentry e3;e=substr(e,38);end bufferflush;gc;signal QUIT3 /**************************************************************************\ \****************************************** Frontiers BBS (716)/823-9892 **/